From: Abigail <abigail@abigail.be>
Date: Mon, 27 Oct 2003 14:50:24 +0000 (+0100)
Subject: Test (5.9.x)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b8ec4db0281494f81643a75b165d473ad70184cd;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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";