[svn:parrot] r18154 - trunk/t/tools/pmc2cutils

[jkeenan]

Author: jkeenan
Date: Wed Apr 11 16:00:20 2007
New Revision: 18154

Modified:
   trunk/t/tools/pmc2cutils/07-open_file.t

Log:
Conform file to Perl::Critic policy on no 2-argument 'open'.


Modified: trunk/t/tools/pmc2cutils/07-open_file.t
==============================================================================
--- trunk/t/tools/pmc2cutils/07-open_file.t     (original)
+++ trunk/t/tools/pmc2cutils/07-open_file.t     Wed Apr 11 16:00:20 2007
@@ -131,7 +131,7 @@
 
 sub create_test_file {
     my $filename = shift;
-    open my $FH, ">$filename" or die "Unable to create test file: $!";
+    open my $FH, '>', $filename or die "Unable to create test file: $!";
     close $FH or die "Unable to close test file: $!";
     return 1;
 }