diff options
| author | David Golden <dagolden@cpan.org> | 2013-02-05 22:23:37 -0500 |
|---|---|---|
| committer | David Golden <dagolden@cpan.org> | 2013-02-05 22:49:36 -0500 |
| commit | a820780c62918236069b3b55502640c99a9e812a (patch) | |
| tree | 83fd60489843be81231a4ad93f0881c778361691 /lib | |
| parent | 12d07ca2e030c5e8d1dbfb5167d83aaf00efbe1b (diff) | |
| download | perl-a820780c62918236069b3b55502640c99a9e812a.tar.gz | |
Benchmark iteration warnings should warn, not print
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/Benchmark.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Benchmark.pm b/lib/Benchmark.pm index 8fc9799736..728b0b9e74 100644 --- a/lib/Benchmark.pm +++ b/lib/Benchmark.pm @@ -440,7 +440,7 @@ our(@ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS, $VERSION); clearcache clearallcache disablecache enablecache); %EXPORT_TAGS=( all => [ @EXPORT, @EXPORT_OK ] ) ; -$VERSION = 1.13; +$VERSION = 1.14; # --- ':hireswallclock' special handling @@ -836,7 +836,7 @@ sub timethis{ # A conservative warning to spot very silly tests. # Don't assume that your benchmark is ok simply because # you don't get this warning! - print " (warning: too few iterations for a reliable count)\n" + warn " (warning: too few iterations for a reliable count)\n" if $n < $Min_Count || ($t->real < 1 && $n < 1000) || $t->cpu_a < $Min_CPU; |