Changeset 7256

Timestamp:

2004-04-30T15:45:59+12:00 (20 years ago)

Author:

mdewsnip

Message:

Fixed a bug where the output of the script was not written to a file properly when the -out option was used.

File:

• trunk/gsdl/bin/script/exportcol.pl (modified) (1 diff)

trunk/gsdl/bin/script/exportcol.pl

@@ -115 +115 @@
     open (OUT, ">$out") || 
         (&gsprintf(STDERR, "{common.cannot_open_output_file}\n", $out) && die);
-    $out = OUT;
+    $out = 'main::OUT';
     $close_out = 1;
     }