X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2Fcomp%2Fproto.t;h=7f566e226b8cec4266b8098aea0feb8972a784ba;hb=9137345a080bfc646c2f9440cdb7bd90b8b37428;hp=e317a94b2a6f8d160ba8053e7612d946cdcab912;hpb=13fc5c1401935d87cec6dbb2c2daaa4a99b6c7cd;p=p5sagit%2Fp5-mst-13.2.git

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