diff options
| author | Tim Bunce <Tim.Bunce@pobox.com> | 2008-11-03 16:01:31 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-11-03 16:25:42 +0000 |
| commit | 65269a95bf2e18461f4efd8a5e0ad5bb7d043a5e (patch) | |
| tree | 7e49a477621e7285117cc0d9d22ca9752fc422d4 /op.c | |
| parent | 2a6a7022ea46998eae15a751beb5b65986a938f3 (diff) | |
| download | perl-65269a95bf2e18461f4efd8a5e0ad5bb7d043a5e.tar.gz | |
Re: @{"_<$filename"} is unreasonably tied to use of DB::DB ($^P & 0x2)
Message-ID: <20081103160130.GA45762@timac.local>
Date: Mon, 3 Nov 2008 16:01:31 +0000
p4raw-id: //depot/perl@34705
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -4424,7 +4424,8 @@ Perl_newSTATEOP(pTHX_ I32 flags, char *label, OP *o) #endif CopSTASH_set(cop, PL_curstash); - if (PERLDB_LINE && PL_curstash != PL_debstash) { + if ((PERLDB_LINE || PERLDB_SAVESRC) && PL_curstash != PL_debstash) { + /* this line can have a breakpoint - store the cop in IV */ AV *av = CopFILEAVx(PL_curcop); if (av) { SV * const * const svp = av_fetch(av, (I32)CopLINE(cop), FALSE); |