d/freebsd-skq
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Log to stdout if no file was specified.

Browse Source
This commit is contained in:
des 2003-02-15 19:32:52 +00:00
parent 4045291582
commit 91e02c6515
1 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
tools/tools/tinderbox/tinderbox.pl
View File

@ -301,9 +301,6 @@ MAIN:{
error("invalid target machine");
}
$machine = $1;
if (!defined($logfile)) {
$logfile = "tinderbox-$branch-$arch-$machine.log";
}
if (!@ARGV) {
usage();
@ -334,13 +331,15 @@ MAIN:{
# Open logfile
open(STDIN, '<', "/dev/null")
or error("/dev/null: $!\n");
if ($logfile !~ m|([\w./-]+)$|) {
error("invalid log file name");
if (defined($logfile)) {
if ($logfile !~ m|([\w./-]+)$|) {
error("invalid log file name");
}
$logfile = $1;
unlink($logfile);
open(STDOUT, '>', $logfile)
or error("$logfile: $!");
}
$logfile = $1;
unlink($logfile);
open(STDOUT, '>', $logfile)
or error("$logfile: $!");
open(STDERR, ">&STDOUT");
$| = 1;
logstage("starting $branch tinderbox run for $arch/$machine");