This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Updated IPC-Cmd to CPAN version 0.78
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Thu, 31 May 2012 10:53:48 +0000 (11:53 +0100)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Fri, 15 Jun 2012 13:33:49 +0000 (14:33 +0100)
  [DELTA]

  Changes for 0.78    Mon Apr 30 19:45:00 BST 2012
  =================================================
  * Use POSIX::_exit() instead of exit() in
    run_forked(). Reported by Mithun Ayachit
    [RT 76901]

Porting/Maintainers.pl
cpan/IPC-Cmd/lib/IPC/Cmd.pm

index f9d0eec..9a4995c 100755 (executable)
@@ -1021,7 +1021,7 @@ use File::Glob qw(:case);
 
     'IPC::Cmd' => {
         'MAINTAINER'   => 'kane',
-        'DISTRIBUTION' => 'BINGOS/IPC-Cmd-0.76.tar.gz',
+        'DISTRIBUTION' => 'BINGOS/IPC-Cmd-0.78.tar.gz',
         'FILES'        => q[cpan/IPC-Cmd],
         'UPSTREAM'     => 'cpan',
     },
index 99ba7bf..37e6d1e 100644 (file)
@@ -17,7 +17,7 @@ BEGIN {
                         $INSTANCES $ALLOW_NULL_ARGS
                     ];
 
-    $VERSION        = '0.76';
+    $VERSION        = '0.78';
     $VERBOSE        = 0;
     $DEBUG          = 0;
     $WARN           = 1;
@@ -529,7 +529,7 @@ sub open3_run {
       #
       kill(-9, $$);
 
-      exit 1;
+      POSIX::_exit 1;
     }
 
     if ($got_sig_child) {
@@ -1046,7 +1046,7 @@ sub run_forked {
         $opts->{'child_END'}->();
       }
 
-      exit $child_exit_code;
+      POSIX::_exit $child_exit_code;
     }
 }