Changeset 12622

Timestamp:

2006-08-30T21:29:15+12:00 (18 years ago)

Author:

jrm21

Message:

if we can't open an output file, also give the operating system's
error message with our error message

File:

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

trunk/gsdl/bin/script/import.pl

@@ -294 +294 @@
     if ($out !~ /^(STDERR|STDOUT)$/i) {
     open (OUT, ">$out") ||
-        (&gsprintf(STDERR, "{common.cannot_open_output_file}\n", $out) && die);
+        (&gsprintf(STDERR, "{common.cannot_open_output_file}: $!\n", $out) && die);
     $out = 'import::OUT';
     $close_out = 1;