[PATCH t/comp/proto.t] Test (5.9.x)

--- t/comp/proto.t.bak	Mon Oct 27 13:46:43 2003
+++ t/comp/proto.t	Mon Oct 27 14:42:20 2003
@@ -16,7 +16,7 @@
 
 use strict;
 
-print "1..140\n";
+print "1..141\n";
 
 my $i = 1;
 
@@ -629,3 +629,10 @@
 eval "sub good (\$\t\$\n\$) { 1; }";
 print "not " if $@;
 print "ok ", $i++, "\n";
+
+
+# Ought to fail, doesn't in 5.8.x.
+eval 'sub bug (\[%@]) {  } my $array = [0 .. 1]; bug %$array;';
+print "not " unless $@ =~ /Not a HASH reference/;
+print "ok ", $i ++;
+print "\n";

• [PATCH t/comp/proto.t] Test (5.9.x) by Abigail
• Re: [PATCH t/comp/proto.t] Test (5.9.x) by Rafael Garcia-Suarez