diff options
| author | Linda Walsh <unknown> | 2006-04-10 11:53:46 -0700 |
|---|---|---|
| committer | Steve Peters <steve@fisharerojo.org> | 2006-04-19 16:40:56 +0000 |
| commit | 92dfaf87c2eb198d9a6b2c787cf6caffb168d7fc (patch) | |
| tree | ae58a49ade83220844a7a67ca7da0a0659597d9e | |
| parent | 3ab9de8d44d3d74d1d2cd86d04a174461ff819fa (diff) | |
| download | perl-92dfaf87c2eb198d9a6b2c787cf6caffb168d7fc.tar.gz | |
[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
| -rw-r--r-- | lib/Benchmark.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/lib/Benchmark.pm b/lib/Benchmark.pm index ad04a754bb..854851cfe3 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, @_); |