From: Steve Hay <SteveHay@planit.com>
Date: Fri, 19 Dec 2008 14:39:50 +0000 (+0000)
Subject: Subject: [PATCH] Suppress diag msg from IPC::Cmd
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=495650dc2e3ce928c17348e320e4337c45ce00d6;p=p5sagit%2Fp5-mst-13.2.git

Subject: [PATCH] Suppress diag msg from IPC::Cmd
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Date: Wed, 17 Dec 2008 10:09:41 -0500
Message-ID: <1ff86f510812170709v6589fbc5j205568b81394807e@mail.gmail.com>
---

diff --git a/lib/IPC/Cmd.pm b/lib/IPC/Cmd.pm
index 02b0561..41bcd4b 100644
--- 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';
+    $VERSION        = '0.42_01';
     $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 8229986..95a5ba6 100644
--- a/lib/IPC/Cmd/t/01_IPC-Cmd.t
+++ b/lib/IPC/Cmd/t/01_IPC-Cmd.t
@@ -21,7 +21,8 @@ can_ok( __PACKAGE__,    $_ ) for @Funcs;
 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");    
+diag("IPC::Run: $Have_IPC_Run   IPC::Open3: $Have_IPC_Open3")
+    if (! exists($ENV{'PERL_CORE'}));
 
 local $IPC::Cmd::VERBOSE = $Verbose;
 local $IPC::Cmd::VERBOSE = $Verbose;