Update IPC::Cmd to 0.44

diff --git a/lib/IPC/Cmd.pm b/lib/IPC/Cmd.pm
index 41bcd4b..ae67401 100644 (file)
--- a/lib/IPC/Cmd.pm
+++ b/lib/IPC/Cmd.pm
@@ -16,7 +16,7 @@ BEGIN {
                         $USE_IPC_RUN $USE_IPC_OPEN3 $WARN
                     ];
 
-    $VERSION        = '0.42_01';
+    $VERSION        = '0.44';
     $VERBOSE        = 0;
     $DEBUG          = 0;
     $WARN           = 1;

diff --git a/lib/IPC/Cmd/t/01_IPC-Cmd.t b/lib/IPC/Cmd/t/01_IPC-Cmd.t
index 95a5ba6..e2b58d1 100644 (file)
--- a/lib/IPC/Cmd/t/01_IPC-Cmd.t
+++ b/lib/IPC/Cmd/t/01_IPC-Cmd.t
@@ -22,7 +22,7 @@ my $Have_IPC_Run    = $Class->can_use_ipc_run   || 0;
 my $Have_IPC_Open3  = $Class->can_use_ipc_open3 || 0;
 
 diag("IPC::Run: $Have_IPC_Run   IPC::Open3: $Have_IPC_Open3")
-    if (! exists($ENV{'PERL_CORE'}));
+    unless exists $ENV{'PERL_CORE'};
 
 local $IPC::Cmd::VERBOSE = $Verbose;
 local $IPC::Cmd::VERBOSE = $Verbose;

diff --git a/lib/IPC/Cmd/t/src/x.tgz.packed b/lib/IPC/Cmd/t/src/x.tgz.packed
index 1986b94..ccbaada 100644 (file)
--- a/lib/IPC/Cmd/t/src/x.tgz.packed
+++ b/lib/IPC/Cmd/t/src/x.tgz.packed
@@ -10,7 +10,7 @@ To recreate it use the following command:
 
      uupacktool.pl -p lib/IPC/Cmd/t/src/x.tgz lib/IPC/Cmd/t/src/x.tgz.packed
 
-Created at Sat Dec 13 18:16:56 2008
+Created at Mon May  4 10:16:10 2009
 #########################################################################
 __UU__
 M'XL(`````````^W.NPW"0!!%T2EE2YC%:[N>#7""1,"G?QM##!&.SDE&(]W@