Hi,
Despite the successes on Win32 on CPAN Testers, IPC::Exe is failing
tests on a Windows XP SP3 system running strawberry Perl 5.18.2. In
particular, it seems to be failing tests which read or redirect
STDERR. I've attached a log of the errors and of the results of
running 'perl -v'.
I've reduced the code to that in the attached file. If run as
perl -s try.pl -output=stdout
the child process will write to stdout with no capturing. This results in:
-------------------------------------------------
line1
line2
line3
-------------------------------------------------
which is expected. Capturing stdout via
perl -s try.pl -output=stdout -capture_stdout
results in
-------------------------------------------------
$VAR1 = {
'stdout' => [
'line1
',
'line2
',
'line3
'
]
};
-------------------------------------------------
which is also expected. Output to stderr works:
perl -s try.pl -output=stderr
-------------------------------------------------
line4
line5
line6
-------------------------------------------------
but capturing to stderr doesn't:
-------------------------------------------------
$VAR1 = {
'stderr' => []
};
-------------------------------------------------
Weirder, outputing to stdout and capturing stderr does not work:
-------------------------------------------------
$VAR1 = {
'stderr' => []
};
-------------------------------------------------
All of the above work as expected on a Linux box.
I know little to nothing about Windows, but I'm willing to poke at it
if given directions.
Thanks,
Diab
Message body not shown because it is not plain text.
Message body not shown because it is not plain text.
use IPC::Exe 'exe';
use Data::Dumper;
# create generators
my %gen = (
stdout =>
[ $^X, '-le', 'print STDOUT $_ for qw(line1 line2 line3); exit 44' ],
stderr =>
[ $^X, '-le', 'print STDERR $_ for qw(line4 line5 line6); exit 77' ],
);
my @fh;
my ( $pid, @fh ) = &{ exe +{ stdout => $capture_stdout//0,
stderr => $capture_stderr//0 },
@{ $gen{$output // 'stdout' } } };
my %res = (
$capture_stdout ? do { my $fh = shift @fh; ( stdout => [ <$fh> ] ) } : (),
$capture_stderr ? do { my $fh = shift @fh; ( stderr => [ <$fh> ] ) } : (),
);
print Dumper \%res if %res;
