Re: Benchmark.t failure on Linux

[perl5.git] / lib / Benchmark.t

diff --git a/lib/Benchmark.t b/lib/Benchmark.t
index 22a91bc..25a3478 100644 (file)
--- a/lib/Benchmark.t
+++ b/lib/Benchmark.t
@@ -281,7 +281,7 @@ sub check_graph_consistency {
         pass ("slow rate is less than fast rate");
         ok ($slowfast < 0 && $slowfast > -100,
             "slowfast should be less than zero, and > -100");
-        ok ($fastslow > 100, "fastslow should be > 100") ||
+        ok ($fastslow > 0, "fastslow should be > 0") ||
           print STDERR "# fastslow $fastslow\n";
     } else {
         is ($slowrate, $fastrate,