Changeset 2774 for trunk/gsdl/bin
- Timestamp:
- 2001-10-02T22:36:37+12:00 (23 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gsdl/bin/script/build
r2566 r2774 464 464 } 465 465 466 # creates a file called $outfile.final (should only be called if -out option 467 # is used and isn't STDERR or STDOUT) and writes an output code to it. 466 # creates a file called $outfile.final and writes an output code to it. 468 467 # An output code of 0 specifies that there was no error 469 468 sub final_out { 470 469 my ($exit_code) = @_; 471 470 472 if (open (FINAL, ">$outfile.final")) { 473 print FINAL $exit_code; 474 close FINAL; 471 if ($use_out && (!-e "$outfile.final")) { 472 473 if (open (FINAL, ">$outfile.final")) { 474 print FINAL $exit_code; 475 close FINAL; 476 } 475 477 } 476 478 } … … 578 580 } 579 581 582 # this will produce a .final file if one doesn't exist yet - that 583 # should only happen if there's been an error somewhere in the perl 584 # code 585 &final_out(7); 586 580 587 sub recursive_chmod { 581 588 my ($dir) = @_;
Note:
See TracChangeset
for help on using the changeset viewer.