Test (5.9.x)
authorAbigail <abigail@abigail.be>
Mon, 27 Oct 2003 14:50:24 +0000 (15:50 +0100)
committerRafael Garcia-Suarez <rgarciasuarez@gmail.com>
Tue, 28 Oct 2003 07:42:52 +0000 (07:42 +0000)
Message-ID: <20031027135024.GA12666@abigail.nl>

p4raw-id: //depot/perl@21565

t/comp/proto.t

index e317a94..7f566e2 100755 (executable)
@@ -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";