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