it looks like this was an unrelated bugfix during development of mad,
but which was merged into core with #ifdef PERL_MAD just because it was
a change from the existing perl code... i don't see any reason why this
should have been ifdef'd out to begin with
for (kid = cLISTOPo->op_first; kid; kid = kid->op_sibling)
my_kid(kid, attrs, imopsp);
return o;
- } else if (type == OP_UNDEF
-#ifdef PERL_MAD
- || type == OP_STUB
-#endif
- ) {
+ } else if (type == OP_UNDEF || type == OP_STUB) {
return o;
} else if (type == OP_RV2SV || /* "our" declaration */
type == OP_RV2AV ||
#!./perl
-print "1..36\n";
+print "1..37\n";
sub foo {
my($a, $b) = @_;
$test = 42;
goto loop if ++$count < 37;
}
+
+# [perl #113554]
+eval "my ()";
+print "not " if $@;
+print "ok 37\n";