diff options
| author | Steve Hay <SteveHay@planit.com> | 2008-12-19 14:39:50 +0000 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2008-12-19 14:54:07 +0000 |
| commit | 495650dc2e3ce928c17348e320e4337c45ce00d6 (patch) | |
| tree | e625cbfb75d992a63829d201cbeec2daaf26a440 | |
| parent | 61eaa953f49d65cef6a209171aa36ed47cb4258c (diff) | |
| download | perl-495650dc2e3ce928c17348e320e4337c45ce00d6.tar.gz | |
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>
| -rw-r--r-- | lib/IPC/Cmd.pm | 2 | ||||
| -rw-r--r-- | lib/IPC/Cmd/t/01_IPC-Cmd.t | 3 |
2 files changed, 3 insertions, 2 deletions
diff --git a/lib/IPC/Cmd.pm b/lib/IPC/Cmd.pm index 02b0561c66..41bcd4bab6 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 8229986a59..95a5ba65be 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; |