diff options
| author | Abigail <abigail@abigail.be> | 2003-10-27 15:50:24 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-10-28 07:42:52 +0000 |
| commit | b8ec4db0281494f81643a75b165d473ad70184cd (patch) | |
| tree | 49215c353d792a43957943d3eb18215a78e94f09 | |
| parent | 6cd54f9c495b4940cfbcbc0445fc8191a10b25bd (diff) | |
| download | perl-b8ec4db0281494f81643a75b165d473ad70184cd.tar.gz | |
Test (5.9.x)
Message-ID: <20031027135024.GA12666@abigail.nl>
p4raw-id: //depot/perl@21565
| -rwxr-xr-x | t/comp/proto.t | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/t/comp/proto.t b/t/comp/proto.t index e317a94b2a..7f566e226b 100755 --- a/t/comp/proto.t +++ b/t/comp/proto.t @@ -16,7 +16,7 @@ BEGIN { use strict; -print "1..140\n"; +print "1..141\n"; my $i = 1; @@ -629,3 +629,8 @@ print "ok ", $i++, "\n"; eval "sub good (\$\t\$\n\$) { 1; }"; print "not " if $@; print "ok ", $i++, "\n"; + +# Ought to fail, doesn't in 5.8.1. +eval 'sub bug (\[%@]) { } my $array = [0 .. 1]; bug %$array;'; +print "not " unless $@ =~ /Not a HASH reference/; +print "ok ", $i++, "\n"; |