diff options
| author | Ilya Zakharevich <ilya@math.berkeley.edu> | 1999-07-13 01:44:28 -0400 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-07-17 20:21:01 +0000 |
| commit | 1ee4443ef86044197a528722ecac29fb7559656a (patch) | |
| tree | a0c5ec40abe24d5d632fccab04fd1b0a7d34cfdb /mg.c | |
| parent | b2b3595de3a1c68d7a37fd1fb8f32b7e953595b7 (diff) | |
| download | perl-1ee4443ef86044197a528722ecac29fb7559656a.tar.gz | |
Segfaults if $^P
Message-Id: <199907130944.FAA04473@monk.mps.ohio-state.edu>
p4raw-id: //depot/perl@3683
Diffstat (limited to 'mg.c')
| -rw-r--r-- | mg.c | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -1676,6 +1676,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) + init_debugger(); break; case '\024': /* ^T */ #ifdef BIG_TIME |