diff options
| author | Paul Green <Paul.Green@stratus.com> | 2002-03-12 14:22:00 -0500 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-03-14 15:12:19 +0000 |
| commit | 7f45fac236f26ae9ce0b7455315edbed1b12f481 (patch) | |
| tree | 06462851a48b8aef47edce5acb11c6fce90db276 /lib/Benchmark.t | |
| parent | 9cbc33e806e2f8d7266ad678b15e011463a8cd61 (diff) | |
| download | perl-7f45fac236f26ae9ce0b7455315edbed1b12f481.tar.gz | |
Better patch for Benchmark.t and arith.t
Message-Id: <200203130025.TAA20113@mailhub1.stratus.com>
p4raw-id: //depot/perl@15226
Diffstat (limited to 'lib/Benchmark.t')
| -rw-r--r-- | lib/Benchmark.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/Benchmark.t b/lib/Benchmark.t index 503463329e..53d4efcb67 100644 --- a/lib/Benchmark.t +++ b/lib/Benchmark.t @@ -319,7 +319,7 @@ sub check_graph { { select(OUT); my $start = times; - my $chart = cmpthese( -0.1, { a => "++\$i", b => "\$i *= 2" } ) ; + my $chart = cmpthese( -0.1, { a => "++\$i", b => "\$i = sqrt(\$i++)" } ) ; my $end = times; select(STDOUT); ok (($end - $start) > 0.05, "benchmarked code ran for over 0.05 seconds"); |