diff options
| author | Paul Johnson <paul@pjcj.net> | 2003-12-05 01:57:21 +0100 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2003-12-05 07:07:30 +0000 |
| commit | 39bd0f18b4bccd2fa3176747640b8ecf99930080 (patch) | |
| tree | 4619f2fc49ab8b9c99b0401bd1cbc881305597a8 /mg.c | |
| parent | b8ccb22136640685e24038d8bbdef1880777e04f (diff) | |
| download | perl-39bd0f18b4bccd2fa3176747640b8ecf99930080.tar.gz | |
$^P, eval and caller
Message-ID: <20031204235721.GJ26355@pjcj.net>
p4raw-id: //depot/perl@21842
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -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 */ |