Change 14237 by jhi@alpha on 2002/01/13 17:12:04
Subject: [PATCH] Re: [FAIL] Benchmark.t intermittent failure
From: Nicholas Clark <[EMAIL PROTECTED]>
Date: Sun, 13 Jan 2002 15:58:34 +0000
Message-ID: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/lib/Benchmark.t#6 edit
Differences ...
==== //depot/perl/lib/Benchmark.t#6 (text) ====
Index: perl/lib/Benchmark.t
--- perl/lib/Benchmark.t.~1~ Sun Jan 13 10:15:05 2002
+++ perl/lib/Benchmark.t Sun Jan 13 10:15:05 2002
@@ -12,7 +12,7 @@
use Benchmark qw(:all);
-my $delta = 0.2;
+my $delta = 0.3;
# Some timing ballast
sub fib {
@@ -59,7 +59,7 @@
print "# $in_threesecs iterations\n";
ok ($in_threesecs > 0, "iters returned positive iterations");
-my $estimate = int ($in_threesecs / 3);
+my $estimate = int (100 * $in_threesecs / 3) / 100;
print "# from the 3 second run estimate $estimate iterations in 1 second...\n";
$baz = 0;
my $onesec = countit(1, $coderef);
End of Patch.
