diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 1999-05-21 22:00:56 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 1999-05-21 22:00:56 +0000 |
| commit | 5c44b94ea302876a61650d4e2424ae187b8bd3d8 (patch) | |
| tree | 09f7ff97438d40fbcd9356b2637401715a3c2ce2 /t | |
| parent | a32a45b66b48d4e07952978721dcf122197519a7 (diff) | |
| parent | 992a048d586fde0859562604f44595d6c960df70 (diff) | |
| download | perl-5c44b94ea302876a61650d4e2424ae187b8bd3d8.tar.gz | |
Integrate from mainperl.
p4raw-id: //depot/cfgperl@3443
Diffstat (limited to 't')
| -rwxr-xr-x | t/comp/proto.t | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/t/comp/proto.t b/t/comp/proto.t index d58a7821d8..956b9846f2 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 '$', |