diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-07 14:43:57 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-08-07 14:43:57 +0000 |
| commit | 359218de2862c98ccfadd5880b5a17387de633db (patch) | |
| tree | 0f814cad8a75ba2e6531f911c1ec31eb756452f9 /lib/Benchmark.t | |
| parent | 0a8c84970ed40ea8edae407334b845cdf5015c50 (diff) | |
| download | perl-359218de2862c98ccfadd5880b5a17387de633db.tar.gz | |
[PATCH 5.8.1] Benchmark problem
From: Radu Greab <rgreab@fx.ro>
Date: Thu, 07 Aug 2003 16:18:25 +0300 (EEST)
Message-Id: <20030807.161825.106541372.radu@yx.primIT.ro>
Subject: Re: [PATCH 5.8.1] Benchmark problem
From: Rafael Garcia-Suarez <rgarciasuarez@free.fr>
Date: Thu, 7 Aug 2003 15:48:38 +0200
Message-Id: <20030807154838.5d240dbb.rgarciasuarez@free.fr>
p4raw-id: //depot/perl@20546
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 8081476785..b4d714931c 100644 --- a/lib/Benchmark.t +++ b/lib/Benchmark.t @@ -583,7 +583,7 @@ is_deeply ([keys %Benchmark::Cache], \@before_keys, foreach my $func (@takes_no_args) { eval "$func(42)"; - is( $@, $usage{$func}, "$func usage: with args" ); + like( $@, qr/Too many arguments for Benchmark::$func/, "$func usage: with args" ); } } |