[perl.git] branch blead updated. v5.27.8-257-gaed76e69bd

[Chris 'Bingos' Williams]

In perl.git, the branch blead has been updated

<https://perl5.git.perl.org/perl.git/commitdiff/aed76e69bd9a87baa8ab250f3e953beb2779f66e?hp=142e623c481e3fa71fa8ec5e3bf445633918fcfa>

- Log -----------------------------------------------------------------
commit aed76e69bd9a87baa8ab250f3e953beb2779f66e
Author: Chris 'BinGOs' Williams <ch...@bingosnet.co.uk>
Date:   Wed Feb 14 16:51:31 2018 +0000

    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'

-----------------------------------------------------------------------

Summary of changes:
 Porting/Maintainers.pl         | 2 +-
 cpan/IPC-Cmd/lib/IPC/Cmd.pm    | 3 ++-
 cpan/IPC-Cmd/t/03_run-forked.t | 1 +
 3 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index 6a33bb24f0..7a15308dea 100755
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -645,7 +645,7 @@ use File::Glob qw(:case);
     },
 
     'IPC::Cmd' => {
-        'DISTRIBUTION' => 'BINGOS/IPC-Cmd-0.98.tar.gz',
+        'DISTRIBUTION' => 'BINGOS/IPC-Cmd-1.00.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 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`;

-- 
Perl5 Master Repository