chdir 't';
}
-print "1..169\n";
+print "1..170\n";
sub failed {
my ($got, $expected, $name) = @_;
# ng: 'Missing $ on loop variable'
like $@, "^No such class a1b at ", 'TYPE of my of for statement';
+eval 'method {} {$_,undef}';
+like $@, qq/^Can't call method "method" on unblessed reference at /,
+ 'method BLOCK {...} does not try to disambiguate';
+
# Add new tests HERE (above this line)
# bug #74022: Loop on characters in \p{OtherIDContinue}