Not OK 5.7.2@14884

   Message-Id: <m38z9gfigk.fsf@anima.de>
p4raw-link: @14884 on //depot/perl: 494244503fd690687b35aca99f4243ed5667eb4f

p4raw-id: //depot/perl@14886

diff --git a/t/lib/access.t b/t/lib/access.t
index 815808c..da7193e 100644 (file)
--- a/t/lib/access.t
+++ b/t/lib/access.t
@@ -34,15 +34,15 @@ ok(!access::readonly($hash{two},1));
 
 eval { $hash{'three'} = 3 };
 #warn "$@";
-ok($@ =~ /^Attempt to access to key 'three' in fixed hash/);
+ok($@ =~ /^Attempt to access key 'three' in fixed hash/);
 
 eval { print "# oops"  if $hash{'four'}};
 #warn "$@";
-ok($@ =~ /^Attempt to access to key 'four' in fixed hash/);
+ok($@ =~ /^Attempt to access key 'four' in fixed hash/);
 
 eval { $hash{"\x{2323}"} = 3 };
 #warn "$@";
-ok($@ =~ /^Attempt to access to key '(.*)' in fixed hash/);
+ok($@ =~ /^Attempt to access key '(.*)' in fixed hash/);
 #ok(ord($1) == 0x2323);
 
 eval { delete $hash{'two'}};
@@ -56,7 +56,7 @@ ok($hash{two} == 2);
 
 eval { delete $hash{'four'}};
 #warn "$@";
-ok($@ =~ /^Attempt to access to key 'four' in fixed hash/);
+ok($@ =~ /^Attempt to access key 'four' in fixed hash/);
 
 ok(not exists $hash{'one'});