- No, I really do want that debug output. :-)
- Make the "uname" stderr go to /dev/null -- it's not the same on all platforms (grumble) This commit was SVN r2294.
Этот коммит содержится в:
родитель
e4c0c75a20
Коммит
6c47f6823e
@ -83,6 +83,7 @@ sub test_abort {
|
|||||||
sub do_command {
|
sub do_command {
|
||||||
my ($merge_output, $cmd) = @_;
|
my ($merge_output, $cmd) = @_;
|
||||||
|
|
||||||
|
print "*** Running command: $cmd\n" if ($debug);
|
||||||
pipe OUTread, OUTwrite;
|
pipe OUTread, OUTwrite;
|
||||||
pipe ERRread, ERRwrite
|
pipe ERRread, ERRwrite
|
||||||
if (!$merge_output);
|
if (!$merge_output);
|
||||||
@ -488,10 +489,10 @@ our @email_output;
|
|||||||
my $ret;
|
my $ret;
|
||||||
|
|
||||||
# prefix the e-mail
|
# prefix the e-mail
|
||||||
my $unamen = `uname -n`;
|
my $unamen = `uname -n 2>/dev/null`;
|
||||||
my $unameo = `uname -o`;
|
my $unameo = `uname -o 2>/dev/null`;
|
||||||
my $unamer = `uname -r`;
|
my $unamer = `uname -r 2>/dev/null`;
|
||||||
my $unamem = `uname -m`;
|
my $unamem = `uname -m 2>/dev/null`;
|
||||||
chomp($unamen);
|
chomp($unamen);
|
||||||
chomp($unameo);
|
chomp($unameo);
|
||||||
chomp($unamer);
|
chomp($unamer);
|
||||||
|
Загрузка…
x
Ссылка в новой задаче
Block a user