Changeset 1431 for trunk/gsdl/bin/script/import.pl

Timestamp:

2000-08-20T20:42:28+12:00 (24 years ago)

Author:

sjboddie

Message:

Made a few minor adjustments to perl building code for use with
collectoraction

File:

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

trunk/gsdl/bin/script/import.pl

@@ -94 +94 @@
     my $close_out = 0;
     if ($out !~ /^(STDERR|STDOUT)$/i) {
-    open (OUT, ">>$out") || die "Couldn't open output file $out\n";
+    open (OUT, ">$out") || die "Couldn't open output file $out\n";
     $out = 'import::OUT';
     $close_out = 1;