diff options
| author | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2018-02-14 16:51:31 +0000 |
|---|---|---|
| committer | Chris 'BinGOs' Williams <chris@bingosnet.co.uk> | 2018-02-14 16:51:31 +0000 |
| commit | aed76e69bd9a87baa8ab250f3e953beb2779f66e (patch) | |
| tree | 637cab67365e7e07abd6a808969f611831640045 /cpan | |
| parent | 142e623c481e3fa71fa8ec5e3bf445633918fcfa (diff) | |
| download | perl-aed76e69bd9a87baa8ab250f3e953beb2779f66e.tar.gz | |
Update IPC-Cmd to CPAN version 1.00
[DELTA]
1.00 Wed Feb 14 16:14:01 GMT 2018
Bug fixes:
- Resolve RT #91784 'run_forked("/usr/bin/echo test") captures no output'
- Resolve RT #124415 'The 03_run_forked.t test fails (sometimes) on HPUX'
Diffstat (limited to 'cpan')
| -rw-r--r-- | cpan/IPC-Cmd/lib/IPC/Cmd.pm | 3 | ||||
| -rw-r--r-- | cpan/IPC-Cmd/t/03_run-forked.t | 1 |
2 files changed, 3 insertions, 1 deletions
diff --git a/cpan/IPC-Cmd/lib/IPC/Cmd.pm b/cpan/IPC-Cmd/lib/IPC/Cmd.pm index bef7e4a875..a42c21b84e 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.98'; + $VERSION = '1.00'; $VERBOSE = 0; $DEBUG = 0; $WARN = 1; @@ -531,6 +531,7 @@ sub open3_run { $child_err->autoflush(1); my $pid = open3($child_in, $child_out, $child_err, $cmd); + Time::HiRes::usleep(1); # push my child's pid to our parent # so in case i am killed parent diff --git a/cpan/IPC-Cmd/t/03_run-forked.t b/cpan/IPC-Cmd/t/03_run-forked.t index 54253344fd..42e7709635 100644 --- a/cpan/IPC-Cmd/t/03_run-forked.t +++ b/cpan/IPC-Cmd/t/03_run-forked.t @@ -83,6 +83,7 @@ close($fh); SKIP: { skip 'Skip these tests in PERL_CORE', 100 if $ENV{PERL_CORE}; + skip 'These tests heisenfail on HPUX', 100 if $^O eq 'hpux'; for (my $i = 0; $i < 100; $i++) { my $f_ipc_cmd = IPC::Cmd::run_forked("$cat $filename"); my $f_backticks = `$cat $filename`; |