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 | 1c1fc3ea10284b28de560550fae130e9d453e5c1 (patch) | |
| tree | 7da6495780973d7c827b272d80eb332f1d347fc5 /t | |
| parent | 5963b987d451051651e0ba84aeab7c2129af761e (diff) | |
| download | perl-1c1fc3ea10284b28de560550fae130e9d453e5c1.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')
| -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 " |