diff options
Diffstat (limited to 'NPTest.pm')
-rw-r--r-- | NPTest.pm | 7 |
1 files changed, 5 insertions, 2 deletions
@@ -609,10 +609,13 @@ sub testCmd { | |||
609 | my $object = $class->new; | 609 | my $object = $class->new; |
610 | 610 | ||
611 | my $output = `$command`; | 611 | my $output = `$command`; |
612 | $object->return_code($? >> 8); | ||
613 | $_ = $? & 127; | ||
614 | if ($_) { | ||
615 | die "Got signal $_ for command $command"; | ||
616 | } | ||
612 | chomp $output; | 617 | chomp $output; |
613 | |||
614 | $object->output($output); | 618 | $object->output($output); |
615 | $object->return_code($? >> 8); | ||
616 | 619 | ||
617 | if ($ENV{'NPTEST_DEBUG'}) { | 620 | if ($ENV{'NPTEST_DEBUG'}) { |
618 | my ($pkg, $file, $line) = caller(0); | 621 | my ($pkg, $file, $line) = caller(0); |