diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-21 17:42:49 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-05-21 17:42:49 +0000 |
| commit | 1c042e271623eb73a9d7920bd3e02752d83cd92e (patch) | |
| tree | d891cb1c13d995499067b84e2636ec14ecb658af /t/comp | |
| parent | eb764fbdcca1ebb00cf44982d26e732e16591ea0 (diff) | |
| download | perl-1c042e271623eb73a9d7920bd3e02752d83cd92e.tar.gz | |
test tweak
p4raw-id: //depot/perl@3440
Diffstat (limited to 't/comp')
| -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 '$', |