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); |
