diff options
author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1998-01-29 12:04:28 -0500 |
---|---|---|
committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1998-02-06 15:55:34 +0000 |
commit | b6c543e345c32071a6c3c124ee19c0eb9bb3df41 (patch) | |
tree | c27f75f78aa13078d259dd852bd0c54482a2f527 /t/comp/proto.t | |
parent | 8c52afecd5252bed5ed8df3a63a6cd9affde4ab4 (diff) | |
download | perl-b6c543e345c32071a6c3c124ee19c0eb9bb3df41.tar.gz |
5.004_56: patch for `use Fatal' again
p4raw-id: //depot/perl@467
Diffstat (limited to 't/comp/proto.t')
-rwxr-xr-x | t/comp/proto.t | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/t/comp/proto.t b/t/comp/proto.t index 080110bdcc..2a4c9ccce5 100755 --- a/t/comp/proto.t +++ b/t/comp/proto.t @@ -16,7 +16,7 @@ BEGIN { use strict; -print "1..76\n"; +print "1..80\n"; my $i = 1; @@ -377,6 +377,20 @@ sub array_ref_plus (\@@) { print "not " unless @array == 4; print @array; +my $p; +print "not " if defined prototype('CORE::print'); +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 "ok ", $i++, "\n"; + +print "# CORE:Foo => ($p), \$@ => `$@'\nnot " + if defined ($p = eval { prototype('CORE::Foo') or 1 }) or $@ !~ /^Cannot find an opnumber/; +print "ok ", $i++, "\n"; + # correctly note too-short parameter lists that don't end with '$', # a possible regression. |