[svn:parrot] r19062 - trunk/t/compilers/imcc/syn

[paultcochrane]

Author: paultcochrane
Date: Sun Jun 17 07:31:42 2007
New Revision: 19062

Modified:
   trunk/t/compilers/imcc/syn/file.t

Log:
[t] Prohibiting a bareword filehandle as per coding standards.


Modified: trunk/t/compilers/imcc/syn/file.t
==============================================================================
--- trunk/t/compilers/imcc/syn/file.t   (original)
+++ trunk/t/compilers/imcc/syn/file.t   Sun Jun 17 07:31:42 2007
@@ -355,14 +355,14 @@
 .end
 END_PIR
         close $FOO;
-        local *OLDERR;
-        open OLDERR, ">&", "STDERR"   or die "Can't save STDERR\n";
+        my $OLDERR;
+        open $OLDERR, ">&", "STDERR"   or die "Can't save STDERR\n";
         open STDERR, ">",  "temp.out" or die "Can't write temp.out\n";
         system "$PARROT temp.pir";
         open $FOO, "<", "temp.out" or die "Can't read temp.out\n";
         { local $/; $err_msg = <$FOO>; }
         close $FOO;
-        open STDERR, ">&", "OLDERR" or die "Can't restore STDERR\n";
+        open STDERR, ">&", $OLDERR or die "Can't restore STDERR\n";
         unlink "temp.out";
     }