summaryrefslogtreecommitdiff
path: root/pp_ctl.c
diff options
context:
space:
mode:
authorNicholas Clark <nick@ccl4.org>2008-11-17 22:04:56 +0000
committerNicholas Clark <nick@ccl4.org>2008-11-17 22:04:56 +0000
commitaac018bb00282d5a72a5c5b4d95935b9eb667bcc (patch)
treefd84759f0eadaaff7dd4a9f33c3aa3d9f434a2c5 /pp_ctl.c
parentc9907023d869893333355372c9385acf6c758809 (diff)
downloadperl-aac018bb00282d5a72a5c5b4d95935b9eb667bcc.tar.gz
Fix the bug introduced with MRO, whereby the internals were not saving
lines in subroutines defined inside eval ""s for the debugger. p4raw-id: //depot/perl@34873
Diffstat (limited to 'pp_ctl.c')
-rw-r--r--pp_ctl.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/pp_ctl.c b/pp_ctl.c
index 268bb355b5..b2cbbde365 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -3653,7 +3653,7 @@ PP(pp_entereval)
register PERL_CONTEXT *cx;
SV *sv;
const I32 gimme = GIMME_V;
- const I32 was = PL_sub_generation;
+ const I32 was = PL_breakable_sub_generation;
char tbuf[TYPE_DIGITS(long) + 12];
char *tmpbuf = tbuf;
char *safestr;