diff options
author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-04-12 16:51:12 +0000 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-04-12 16:51:12 +0000 |
commit | 07e88136df3f15fa54f4d0a34b2950986fc40777 (patch) | |
tree | eaebd6aa0cbd8cfac5a2935732f241fe136fd511 /lib/Benchmark.t | |
parent | 431b0fc4d67b7f221bc3905fc50b43677201f1c6 (diff) | |
download | perl-07e88136df3f15fa54f4d0a34b2950986fc40777.tar.gz |
Benchmark nit from Nicholas Clark (in OpenBSD the result could
be a negative zero, -0).
p4raw-id: //depot/perl@19191
Diffstat (limited to 'lib/Benchmark.t')
-rw-r--r-- | lib/Benchmark.t | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Benchmark.t b/lib/Benchmark.t index 60caf434e6..d9cb156bff 100644 --- a/lib/Benchmark.t +++ b/lib/Benchmark.t @@ -292,8 +292,8 @@ sub check_graph_consistency { (my $fastslow = $fastslowt) =~ s!%!!; if ($slowrate < $fastrate) { pass ("slow rate is less than fast rate"); - unless (ok ($slowfast < 0 && $slowfast >= -100, - "slowfast should be less than zero, and >= -100")) { + unless (ok ($slowfast <= 0 && $slowfast >= -100, + "slowfast should be less than or equal to zero, and >= -100")) { print STDERR "# slowfast $slowfast\n"; $all_passed = 0; } |