diff options
Diffstat (limited to 'NPTest.pm')
| -rw-r--r-- | NPTest.pm | 4 |
1 files changed, 4 insertions, 0 deletions
| @@ -15,6 +15,8 @@ use warnings; | |||
| 15 | use Cwd; | 15 | use Cwd; |
| 16 | use File::Basename; | 16 | use File::Basename; |
| 17 | 17 | ||
| 18 | use JSON; | ||
| 19 | |||
| 18 | use IO::File; | 20 | use IO::File; |
| 19 | use Data::Dumper; | 21 | use Data::Dumper; |
| 20 | 22 | ||
| @@ -617,6 +619,8 @@ sub testCmd { | |||
| 617 | chomp $output; | 619 | chomp $output; |
| 618 | $object->output($output); | 620 | $object->output($output); |
| 619 | 621 | ||
| 622 | eval { $object->{'mp_test_result'} = decode_json($output) }; | ||
| 623 | |||
| 620 | alarm(0); | 624 | alarm(0); |
| 621 | 625 | ||
| 622 | my ($pkg, $file, $line) = caller(0); | 626 | my ($pkg, $file, $line) = caller(0); |
