From: Andreas König <a.koenig@mind.de>
Date: Tue, 26 Feb 2002 15:03:55 +0000 (+0100)
Subject: Not OK 5.7.2@14884
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3ca925874f58afe830847e3aaacb8dbda2bdcc03;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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'});