In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/0ceeeec981ad5b1ca3ff145e7d3c682d60d0a06c?hp=2890cc8c9f56ed8f91a8a6134e7b2fb7beb23f38>
- Log ----------------------------------------------------------------- commit 0ceeeec981ad5b1ca3ff145e7d3c682d60d0a06c Author: David Mitchell <[email protected]> Date: Tue Nov 11 11:45:24 2014 +0000 perf/benchmarks.t: fix regex typo [A-z] should be [A-Z]. Spotted by Karl Williamson. ----------------------------------------------------------------------- Summary of changes: t/perf/benchmarks.t | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/t/perf/benchmarks.t b/t/perf/benchmarks.t index c5ec3df..4e6c338 100644 --- a/t/perf/benchmarks.t +++ b/t/perf/benchmarks.t @@ -25,7 +25,7 @@ plan keys(%$benchmarks) * 3; # check the hash of hashes is minimally consistent in format for my $token (sort keys %$benchmarks) { - like($token, qr/^[a-zA-z]\w*$/a, "legal token: $token"); + like($token, qr/^[a-zA-Z]\w*$/a, "legal token: $token"); my $keys = join('-', sort keys %{$benchmarks->{$token}}); is($keys, 'code-desc-setup', "legal keys: $token"); } -- Perl5 Master Repository
