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