[perl.git] branch blead updated. v5.31.1-148-gdc9ac3ee56

[Chris 'Bingos' Williams]

In perl.git, the branch blead has been updated

<https://perl5.git.perl.org/perl.git/commitdiff/dc9ac3ee562166ff93b09c2b5a63cc5c51748c7f?hp=86b50d930caa444c44fdcbc7a450402db01fcf1b>

- Log -----------------------------------------------------------------
commit dc9ac3ee562166ff93b09c2b5a63cc5c51748c7f
Author: Chris 'BinGOs' Williams <ch...@bingosnet.co.uk>
Date:   Sun Jul 14 15:40:03 2019 +0100

    Update IPC-Cmd to CPAN version 1.04
    
      [DELTA]
    
    1.04 Sat Jul 13 10:08:08 BST 2019
    
      Bug fixes:
      - Fixed usage of setsid()

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

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

diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl
index 2d543d06dd..4ca00aab59 100755
--- a/Porting/Maintainers.pl
+++ b/Porting/Maintainers.pl
@@ -643,7 +643,7 @@ use File::Glob qw(:case);
     },
 
     'IPC::Cmd' => {
-        'DISTRIBUTION' => 'BINGOS/IPC-Cmd-1.02.tar.gz',
+        'DISTRIBUTION' => 'BINGOS/IPC-Cmd-1.04.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 42cdd5990c..88ed2955a9 100644
--- a/cpan/IPC-Cmd/lib/IPC/Cmd.pm
+++ b/cpan/IPC-Cmd/lib/IPC/Cmd.pm
@@ -19,7 +19,7 @@ BEGIN {
                         $HAVE_MONOTONIC
                     ];
 
-    $VERSION        = '1.02';
+    $VERSION        = '1.04';
     $VERBOSE        = 0;
     $DEBUG          = 0;
     $WARN           = 1;
@@ -1204,7 +1204,7 @@ sub run_forked {
       # which do setsid theirselves -- can't do anything
       # with those)
 
-      POSIX::setsid() || Carp::confess("Error running setsid: " . $!);
+      POSIX::setsid() == -1 and Carp::confess("Error running setsid: " . $!);
 
       if ($opts->{'child_BEGIN'} && ref($opts->{'child_BEGIN'}) eq 'CODE') {
         $opts->{'child_BEGIN'}->();

-- 
Perl5 Master Repository