Integrate:

[ 34841]
Change 34693 introduced a regression spotted by Devel::SmallProf.
p4raw-link: @34841 on //depot/maint-5.8/perl: 95d1ca54dd69844873c9f0e6981fcfd632fa4274

p4raw-id: //depot/perl@34857
p4raw-integrated: from //depot/maint-5.8/perl@34854 'merge in' pp_ctl.c
	(@34726..)

diff --git a/pp_ctl.c b/pp_ctl.c
index 3ef7e32..268bb35 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -3728,7 +3728,7 @@ PP(pp_entereval)
 
     /* prepare to compile string */
 
-    if (PERLDB_SAVESRC && PL_curstash != PL_debstash)
+    if ((PERLDB_LINE || PERLDB_SAVESRC) && PL_curstash != PL_debstash)
        save_lines(CopFILEAV(&PL_compiling), PL_parser->linestr);
     PUTBACK;
     ok = doeval(gimme, NULL, runcv, seq);