diff options
| author | Chip Salzenberg <chip@pobox.com> | 2009-08-26 13:25:52 -0700 |
|---|---|---|
| committer | Chip Salzenberg <chip@pobox.com> | 2009-08-26 13:25:52 -0700 |
| commit | cc8773c013ccdaec9cb8d2c57d85a70c368e102f (patch) | |
| tree | 75c4d64ff937319b810abe13657eb1924017f8d3 /op.c | |
| parent | 52a66c2cc3722485e8a16f1da9c026524180ca8c (diff) | |
| download | perl-cc8773c013ccdaec9cb8d2c57d85a70c368e102f.tar.gz | |
New debugging flag -DB now dumps subroutine definitions,
leaving -Dx for its original purpose of dumping syntax trees.
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_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); @@ -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_x( dump_sub(gv) ); + DEBUG_B( 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_x( dump_sub(gv) ); + DEBUG_B( dump_sub(gv) ); GvCV(gv) = 0; /* cv has been hijacked */ } } |