diff options
| author | Chip Salzenberg <chip@pobox.com> | 2009-08-30 15:21:10 -0700 |
|---|---|---|
| committer | Chip Salzenberg <chip@pobox.com> | 2009-08-30 15:21:10 -0700 |
| commit | a58fb6f9ef96a8b78ba4b58cfb068299b65fd6bd (patch) | |
| tree | 21120180b7911ddc57833cf87ba05e77884a509b /op.c | |
| parent | c008dd209a151b84434a86cc5e4329af0e1bff9f (diff) | |
| download | perl-a58fb6f9ef96a8b78ba4b58cfb068299b65fd6bd.tar.gz | |
finish more implementing -DB vs. -Dx
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 6 |
1 files changed, 3 insertions, 3 deletions
@@ -5896,7 +5896,7 @@ S_process_special_blocks(pTHX_ const char *const fullname, GV *const gv, SAVECOPFILE(&PL_compiling); SAVECOPLINE(&PL_compiling); - DEBUG_B( dump_sub(gv) ); + DEBUG_x( 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); @@ -5910,7 +5910,7 @@ S_process_special_blocks(pTHX_ const char *const fullname, GV *const gv, } else { if (*name == 'E') { if strEQ(name, "END") { - DEBUG_B( dump_sub(gv) ); + DEBUG_x( dump_sub(gv) ); Perl_av_create_and_unshift_one(aTHX_ &PL_endav, MUTABLE_SV(cv)); } else return; @@ -5941,7 +5941,7 @@ S_process_special_blocks(pTHX_ const char *const fullname, GV *const gv, return; } else return; - DEBUG_B( dump_sub(gv) ); + DEBUG_x( dump_sub(gv) ); GvCV(gv) = 0; /* cv has been hijacked */ } } |