Changeset 2774 for trunk/gsdl/bin/script/build

Timestamp:

2001-10-02T22:36:37+12:00 (23 years ago)

Author:

sjboddie

Message:

Tidied up the collector's error handling. Hopefully the situation where the
status page loops continuously after an error will now be rare (it can
still happen if perl or one of the third party converters hangs though)

File:

• trunk/gsdl/bin/script/build (modified) (2 diffs)

trunk/gsdl/bin/script/build

@@ -464 +464 @@
 }
 
-# creates a file called $outfile.final (should only be called if -out option
-# is used and isn't STDERR or STDOUT) and writes an output code to it.
+# creates a file called $outfile.final and writes an output code to it.
 # An output code of 0 specifies that there was no error
 sub final_out {
     my ($exit_code) = @_;
 
-    if (open (FINAL, ">$outfile.final")) {
-    print FINAL $exit_code;
-    close FINAL;
+    if ($use_out && (!-e "$outfile.final")) {
+
+    if (open (FINAL, ">$outfile.final")) {
+        print FINAL $exit_code;
+        close FINAL;
+    }
     }
 }
@@ -578 +580 @@
     }
 
+    # this will produce a .final file if one doesn't exist yet - that
+    # should only happen if there's been an error somewhere in the perl
+    # code
+    &final_out(7);
+
     sub recursive_chmod {
     my ($dir) = @_;