diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-05 20:02:17 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-05 20:02:17 +0000 |
| commit | a2faf7c2f068c38bde6953593c8b4abed3bba04a (patch) | |
| tree | 7da6495780973d7c827b272d80eb332f1d347fc5 /t/comp | |
| parent | 2206a5cd92c854b5e1c0a6693aeadd2ee3b22bf2 (diff) | |
| download | perl-a2faf7c2f068c38bde6953593c8b4abed3bba04a.tar.gz | |
prototype changes for eventually supporting C<binmode(F, ":raw")>
and C<open F, "-|", 'cat', '-v'>
p4raw-id: //depot/perl@5554
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 6381facbea..ee17088be2 100755 --- a/t/comp/proto.t +++ b/t/comp/proto.t @@ -384,7 +384,7 @@ print "ok ", $i++, "\n"; print "not " if defined prototype('CORE::system'); print "ok ", $i++, "\n"; -print "# CORE::open => ($p)\nnot " if ($p = prototype('CORE::open')) ne '*;$;$'; +print "# CORE::open => ($p)\nnot " if ($p = prototype('CORE::open')) ne '*;$@'; print "ok ", $i++, "\n"; print "# CORE:Foo => ($p), \$@ => `$@'\nnot " |