1
1

- 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.
Этот коммит содержится в:
Jeff Squyres 2004-08-25 11:39:03 +00:00
родитель 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);