version 3.6, 2000/07/28 21:38:45 |
version 3.7, 2000/07/29 09:24:14 |
Line 1472 sub getDirLogs { |
|
Line 1472 sub getDirLogs { |
|
if ($tag) { |
if ($tag) { |
#can't use -r<tag> as - is allowed in tagnames, but misinterpreated by rlog.. |
#can't use -r<tag> as - is allowed in tagnames, but misinterpreated by rlog.. |
if (! open($fh, "-|")) { |
if (! open($fh, "-|")) { |
close(STDERR); # rlog may complain; ignore. |
open(STDERR, '>/dev/null'); # rlog may complain; ignore. |
exec("rlog",@files); |
exec('rlog', @files); |
} |
} |
} |
} |
else { |
else { |
my $kidpid = open($fh, "-|"); |
my $kidpid = open($fh, "-|"); |
if (! $kidpid) { |
if (! $kidpid) { |
open(STDERR, '>/dev/null'); # rlog may complain; ignore. |
open(STDERR, '>/dev/null'); # rlog may complain; ignore. |
exec("rlog","-r",@files); |
exec('rlog', '-r', @files); |
} |
} |
} |
} |
$state = "start"; |
$state = "start"; |