[svn:parrot] r49672 - trunk/t/pmc

[mikehh at svn.parrot.org]

Author: mikehh
Date: Mon Oct 25 14:34:35 2010
New Revision: 49672
URL: https://trac.parrot.org/parrot/changeset/49672

Log:
perlcritic complainred about 2 argument form of open and missing perl coda,
fixed the first open, but no idea how to handle the second on line 49,
my attempts did not work, added coda

Modified:
   trunk/t/pmc/io_stdin.t

Modified: trunk/t/pmc/io_stdin.t
==============================================================================
--- trunk/t/pmc/io_stdin.t	Mon Oct 25 10:32:51 2010	(r49671)
+++ trunk/t/pmc/io_stdin.t	Mon Oct 25 14:34:35 2010	(r49672)
@@ -34,7 +34,7 @@
         my $string = shift;
 
         my (undef, $file) = create_tempfile(UNLINK => 1);
-        open(my $out, ">$file") or die "bug";
+        open(my $out, '>', "$file") or die "bug";
         print $out $string;
         return $file;
     };
@@ -150,3 +150,10 @@
 "
 got len 0:  ""
 OUTPUT
+
+# Local Variables:
+#   mode: cperl
+#   cperl-indent-level: 4
+#   fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4: