Test (5.9.x)

Message-ID: <20031027135024.GA12666@abigail.nl>

p4raw-id: //depot/perl@21565

diff --git a/t/comp/proto.t b/t/comp/proto.t
index e317a94..7f566e2 100755 (executable)
--- 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";