Change 14886 by ams@lustre on 2002/02/26 15:48:34
Subject: [PATCH] Not OK 5.7.2@14884
From: [EMAIL PROTECTED] (Andreas J. Koenig)
Date: Tue, 26 Feb 2002 15:03:55 +0100
Message-Id: <[EMAIL PROTECTED]>
Affected files ...
.... //depot/perl/t/lib/access.t#3 edit
Differences ...
==== //depot/perl/t/lib/access.t#3 (text) ====
Index: perl/t/lib/access.t
--- perl/t/lib/access.t.~1~ Tue Feb 26 09:00:05 2002
+++ perl/t/lib/access.t Tue Feb 26 09:00:05 2002
@@ -34,15 +34,15 @@
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 @@
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'});
End of Patch.
