From: Gurusamy Sarathy <gsar@cpan.org>
Date: Fri, 21 May 1999 17:42:49 +0000 (+0000)
Subject: test tweak
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ba5aeb3ad978fe9166b055aa3e3096c9b04ec2ce;p=p5sagit%2Fp5-mst-13.2.git

test tweak

p4raw-id: //depot/perl@3440
---

diff --git a/t/comp/proto.t b/t/comp/proto.t
index d58a782..956b984 100755
--- 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 '$',