This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perf/benchmarks.t: fix regex typo
authorDavid Mitchell <davem@iabyn.com>
Tue, 11 Nov 2014 11:45:24 +0000 (11:45 +0000)
committerDavid Mitchell <davem@iabyn.com>
Tue, 11 Nov 2014 11:45:24 +0000 (11:45 +0000)
[A-z] should be [A-Z]. Spotted by Karl Williamson.

t/perf/benchmarks.t

index c5ec3df..4e6c338 100644 (file)
@@ -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");
 }