Change 34693 introduced a regression spotted by Devel::SmallProf.
authorNicholas Clark <nick@ccl4.org>
Sun, 16 Nov 2008 17:19:33 +0000 (17:19 +0000)
committerNicholas Clark <nick@ccl4.org>
Sun, 16 Nov 2008 17:19:33 +0000 (17:19 +0000)
p4raw-id: //depot/maint-5.8/perl@34841

pp_ctl.c

index d7d1b0b..1f4abaf 100644 (file)
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -3537,7 +3537,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_linestr);
     PUTBACK;
 #ifdef USE_5005THREADS