diff options
| -rwxr-xr-x | Porting/Maintainers.pl | 2 | ||||
| -rw-r--r-- | cpan/IPC-Cmd/lib/IPC/Cmd.pm | 2 | ||||
| -rw-r--r-- | cpan/IPC-Cmd/t/03_run-forked.t | 24 |
3 files changed, 16 insertions, 12 deletions
diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index 6954e96d82..74ed55b48f 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -636,7 +636,7 @@ use File::Glob qw(:case); }, 'IPC::Cmd' => { - 'DISTRIBUTION' => 'BINGOS/IPC-Cmd-0.88.tar.gz', + 'DISTRIBUTION' => 'BINGOS/IPC-Cmd-0.90.tar.gz', 'FILES' => q[cpan/IPC-Cmd], }, diff --git a/cpan/IPC-Cmd/lib/IPC/Cmd.pm b/cpan/IPC-Cmd/lib/IPC/Cmd.pm index 8fdd26c659..62ab7e3de6 100644 --- a/cpan/IPC-Cmd/lib/IPC/Cmd.pm +++ b/cpan/IPC-Cmd/lib/IPC/Cmd.pm @@ -18,7 +18,7 @@ BEGIN { $HAVE_MONOTONIC ]; - $VERSION = '0.88'; + $VERSION = '0.90'; $VERBOSE = 0; $DEBUG = 0; $WARN = 1; diff --git a/cpan/IPC-Cmd/t/03_run-forked.t b/cpan/IPC-Cmd/t/03_run-forked.t index ecb271601e..499b7adc1c 100644 --- a/cpan/IPC-Cmd/t/03_run-forked.t +++ b/cpan/IPC-Cmd/t/03_run-forked.t @@ -81,16 +81,20 @@ for (my $i = 0; $i < 10240; $i++) { } close($fh); -for (my $i = 0; $i < 100; $i++) { - my $f_ipc_cmd = IPC::Cmd::run_forked("$cat $filename"); - my $f_backticks = `$cat $filename`; - if ($f_ipc_cmd->{'stdout'} ne $f_backticks) { - fail ("reading $filename: run_forked output length [" . length($f_ipc_cmd->{'stdout'}) . "], backticks output length [" . length ($f_backticks) . "]"); - #print Data::Dumper::Dumper($f_ipc_cmd); - die; - } - else { - pass ("$i: reading $filename"); + +SKIP: { + skip 'Skip these tests in PERL_CORE', 100 if $ENV{PERL_CORE}; + for (my $i = 0; $i < 100; $i++) { + my $f_ipc_cmd = IPC::Cmd::run_forked("$cat $filename"); + my $f_backticks = `$cat $filename`; + if ($f_ipc_cmd->{'stdout'} ne $f_backticks) { + fail ("reading $filename: run_forked output length [" . length($f_ipc_cmd->{'stdout'}) . "], backticks output length [" . length ($f_backticks) . "]"); + #print Data::Dumper::Dumper($f_ipc_cmd); + die; + } + else { + pass ("$i: reading $filename"); + } } } unlink($filename); |