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 (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';
+    $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 (file)
--- 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;