Benchmark.pm: empty loop too slow

Message-Id: <200205191403.g4JE3ClB025990@vran.herceg.de>

p4raw-id: //depot/perl@16693

diff --git a/lib/Benchmark.pm b/lib/Benchmark.pm
index 175c9c6..cda764f 100644 (file)
--- a/lib/Benchmark.pm
+++ b/lib/Benchmark.pm
@@ -549,7 +549,7 @@ sub timeit {
     if ($cache && exists $cache{$cache_key} ) {
        $wn = $cache{$cache_key};
     } else {
-       $wn = &runloop($n, ref( $code ) ? sub { undef } : '' );
+       $wn = &runloop($n, ref( $code ) ? sub { } : '' );
        # Can't let our baseline have any iterations, or they get subtracted
        # out of the result.
        $wn->[5] = 0;