[svn:parrot] r44435 - trunk/examples/languages/abc/t

[jkeenan at svn.parrot.org]

Author: jkeenan
Date: Wed Feb 24 02:01:45 2010
New Revision: 44435
URL: https://trac.parrot.org/parrot/changeset/44435

Log:
[codingstd] No 2-argument-form for 'open'.

Modified:
   trunk/examples/languages/abc/t/01-tests.t

Modified: trunk/examples/languages/abc/t/01-tests.t
==============================================================================
--- trunk/examples/languages/abc/t/01-tests.t	Wed Feb 24 01:48:18 2010	(r44434)
+++ trunk/examples/languages/abc/t/01-tests.t	Wed Feb 24 02:01:45 2010	(r44435)
@@ -79,7 +79,7 @@
 # calculate total number of tests
 my $numtests = 0;
 foreach my $f (@test_files) {
-    open my( $TEST_FILE ), $f;
+    open my $TEST_FILE, '<', $f;
 
     # for each line in the given files if it's not a comment line
     # or an empty line, the it's a test
@@ -91,7 +91,7 @@
 
 # main loop
 foreach my $file (@test_files) {
-    open my $TEST_FILE, "<$file" or die "can't open file";
+    open my $TEST_FILE, '<', $file or die "can't open file";
     while (<$TEST_FILE>) {
         chomp;
         s/\r//g;