1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
|
package TestCommand;
use strict;
use warnings;
use Capture::Tiny qw(capture);
sub command {
my( $class, @args ) = @_;
my $script = ( $ENV{AUTOPKGTEST_TMP} ? '/usr/bin/cpan-audit' : 'script/cpan-audit' );
my ( $stdout, $stderr, $rc ) = capture {
system $^X, '-Ilib', $script, '--no-corelist', @args;
};
my( $ran, $signal, $exit, $coredump );
$ran = $rc > -1;
if( $ran ) {
$exit = $rc >> 8;
$coredump = $rc & 128;
$signal = $rc & 127;
}
return ( $stdout, $stderr, $exit, $signal, $coredump, $ran );
}
1;
|
