From 3ca925874f58afe830847e3aaacb8dbda2bdcc03 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Andreas=20K=C3=B6nig?= Date: Tue, 26 Feb 2002 16:03:55 +0100 Subject: [PATCH] Not OK 5.7.2@14884 Message-Id: p4raw-link: @14884 on //depot/perl: 494244503fd690687b35aca99f4243ed5667eb4f p4raw-id: //depot/perl@14886 --- t/lib/access.t | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) 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'}); -- 2.7.4