diff options
| author | Nicholas Clark <nick@ccl4.org> | 2009-01-21 15:55:25 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2009-01-21 17:09:11 +0000 |
| commit | 0da0e728710fd7ef615c1a9711842235a554e595 (patch) | |
| tree | 2e7cb9ad7a767b3048672d8f934049121c0b2704 /pp_ctl.c | |
| parent | 8583b25748abc73adb4164e557462c026e44fbbe (diff) | |
| download | perl-0da0e728710fd7ef615c1a9711842235a554e595.tar.gz | |
Correct the form of the flags passed to perl_get_cv().
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -2575,7 +2575,7 @@ PP(pp_goto) if (PERLDB_SUB) { /* Checking curstash breaks DProf. */ Perl_get_db_sub(aTHX_ NULL, cv); if (PERLDB_GOTO) { - CV * const gotocv = get_cv("DB::goto", FALSE); + CV * const gotocv = get_cv("DB::goto", 0); if (gotocv) { PUSHMARK( PL_stack_sp ); call_sv(MUTABLE_SV(gotocv), G_SCALAR | G_NODEBUG); @@ -3098,7 +3098,7 @@ S_doeval(pTHX_ int gimme, OP** startop, CV* outside, U32 seq) /* Register with debugger: */ if (PERLDB_INTER && saveop && saveop->op_type == OP_REQUIRE) { - CV * const cv = get_cv("DB::postponed", FALSE); + CV * const cv = get_cv("DB::postponed", 0); if (cv) { dSP; PUSHMARK(SP); |