This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Re: Benchmark.t failure on Linux
authorNicholas Clark <nick@ccl4.org>
Tue, 18 Dec 2001 22:51:25 +0000 (22:51 +0000)
committerJarkko Hietaniemi <jhi@iki.fi>
Tue, 18 Dec 2001 22:13:14 +0000 (22:13 +0000)
Message-ID: <20011218225124.N21702@plum.flirble.org>

p4raw-id: //depot/perl@13767

lib/Benchmark.t

index 22a91bc..25a3478 100644 (file)
@@ -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,