test tweak

p4raw-id: //depot/perl@3440

diff --git a/t/comp/proto.t b/t/comp/proto.t
index d58a782..956b984 100755 (executable)
--- a/t/comp/proto.t
+++ b/t/comp/proto.t
@@ -388,7 +388,7 @@ print "# CORE::open => ($p)\nnot " if ($p = prototype('CORE::open')) ne '*;$';
 print "ok ", $i++, "\n";
 
 print "# CORE:Foo => ($p), \$@ => `$@'\nnot " 
-    if defined ($p = eval { prototype('CORE::Foo') or 1 }) or $@ !~ /^Cannot find an opnumber/;
+    if defined ($p = eval { prototype('CORE::Foo') or 1 }) or $@ !~ /^Can't find an opnumber/;
 print "ok ", $i++, "\n";
 
 # correctly note too-short parameter lists that don't end with '$',