From: Linda Walsh <unknown>
Date: Mon, 10 Apr 2006 18:53:46 +0000 (-0700)
Subject: [perl #38892] PATCH: remove spurious warning from Benchmark.pm
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=92dfaf87c2eb198d9a6b2c787cf6caffb168d7fc;p=p5sagit%2Fp5-mst-13.2.git

[perl #38892] PATCH: remove spurious warning from Benchmark.pm
From: Linda Walsh (via RT) <perlbug-followup@perl.org>
Message-ID: <rt-3.0.11-38892-132143.0.516271519365361@perl.org>

p4raw-id: //depot/perl@27906
---

diff --git a/lib/Benchmark.pm b/lib/Benchmark.pm
index ad04a75..854851c 100644
--- a/lib/Benchmark.pm
+++ b/lib/Benchmark.pm
@@ -435,7 +435,7 @@ our(@ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS, $VERSION);
 	      clearcache clearallcache disablecache enablecache);
 %EXPORT_TAGS=( all => [ @EXPORT, @EXPORT_OK ] ) ;
 
-$VERSION = 1.07;
+$VERSION = 1.08;
 
 # --- ':hireswallclock' special handling
 
@@ -456,6 +456,7 @@ sub import {
     my $class = shift;
     if (grep { $_ eq ":hireswallclock" } @_) {
 	@_ = grep { $_ ne ":hireswallclock" } @_;
+	local $^W=0;
 	*mytime = $hirestime if defined $hirestime;
     }
     Benchmark->export_to_level(1, $class, @_);