From: Paul Johnson <paul@pjcj.net>
Date: Fri, 5 Dec 2003 00:57:21 +0000 (+0100)
Subject: $^P, eval and caller
X-Git-Tag: perl-5.9.1~445
X-Git-Url: https://perl5.git.perl.org/perl5.git/commitdiff_plain/39bd0f18b4bccd2fa3176747640b8ecf99930080

$^P, eval and caller
Message-ID: <20031204235721.GJ26355@pjcj.net>

p4raw-id: //depot/perl@21842
---

diff --git a/mg.c b/mg.c
index efdd61e..3e864da 100644
--- a/mg.c
+++ b/mg.c
@@ -2072,7 +2072,8 @@ Perl_magic_set(pTHX_ SV *sv, MAGIC *mg)
 	break;
     case '\020':	/* ^P */
 	PL_perldb = SvIOK(sv) ? SvIVX(sv) : sv_2iv(sv);
-	if (PL_perldb && !PL_DBsingle)
+	if ((PERLDB_SUB || PERLDB_LINE || PERLDB_SUBLINE || PERLDB_ASSERTION)
+		&& !PL_DBsingle)
 	    init_debugger();
 	break;
     case '\024':	/* ^T */