develooper Front page | perl.perl5.porters | Postings from October 2003

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

Thread Next
From:
Abigail
Date:
October 27, 2003 05:51
Subject:
[PATCH t/comp/proto.t] Test (5.9.x)
Message ID:
20031027135024.GA12666@abigail.nl
--- 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


nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About