Change 34841 by [EMAIL PROTECTED] on 2008/11/16 17:19:33
Change 34693 introduced a regression spotted by Devel::SmallProf.
Affected files ...
... //depot/maint-5.8/perl/pp_ctl.c#198 edit
Differences ...
==== //depot/maint-5.8/perl/pp_ctl.c#198 (text) ====
Index: perl/pp_ctl.c
--- perl/pp_ctl.c#197~34726~ 2008-11-04 13:39:52.000000000 -0800
+++ perl/pp_ctl.c 2008-11-16 09:19:33.000000000 -0800
@@ -3537,7 +3537,7 @@
/* 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
End of Patch.
