From: Nicholas Clark <nick@ccl4.org>
Date: Sun, 16 Nov 2008 21:38:30 +0000 (+0000)
Subject: Integrate:
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a44e3ce226529598e55244bb1f9f6372951c51d6;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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);