Changeset 20702 for trunk/ippScripts/scripts/magic_process.pl

Timestamp:

Nov 11, 2008, 4:47:42 PM (17 years ago)

Author:

bills

Message:

don't let Bill program in perl

File:

• trunk/ippScripts/scripts/magic_process.pl (modified) (1 diff)

trunk/ippScripts/scripts/magic_process.pl

@@ -261 +261 @@
     my $in;
     open $in, "<$filename" or die "failed to open list file: $filename";
-    my $contents = <$in>;
-    print $out $contents;
+    foreach my $line (<$in>) {
+        print $out $line;
+    }
 }