SAVECOPFILE(&PL_compiling);
SAVECOPLINE(&PL_compiling);
- DEBUG_x( dump_sub(gv) );
+ DEBUG_B( dump_sub(gv) );
Perl_av_create_and_push(aTHX_ &PL_beginav, MUTABLE_SV(cv));
GvCV(gv) = 0; /* cv has been hijacked */
call_list(oldscope, PL_beginav);
} else {
if (*name == 'E') {
if strEQ(name, "END") {
- DEBUG_x( dump_sub(gv) );
+ DEBUG_B( dump_sub(gv) );
Perl_av_create_and_unshift_one(aTHX_ &PL_endav, MUTABLE_SV(cv));
} else
return;
return;
} else
return;
- DEBUG_x( dump_sub(gv) );
+ DEBUG_B( dump_sub(gv) );
GvCV(gv) = 0; /* cv has been hijacked */
}
}