From: Paul Johnson <paul@pjcj.net>
Date: Fri, 5 Dec 2003 00:57:21 +0000 (+0100)
Subject: $^P, eval and caller
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=39bd0f18b4bccd2fa3176747640b8ecf99930080;p=p5sagit%2Fp5-mst-13.2.git

$^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 */