Change 34857 by [EMAIL PROTECTED] on 2008/11/16 21:38:30
Integrate:
[ 34841]
Change 34693 introduced a regression spotted by Devel::SmallProf.
Affected files ...
... //depot/perl/pp_ctl.c#710 integrate
Differences ...
==== //depot/perl/pp_ctl.c#710 (text) ====
Index: perl/pp_ctl.c
--- perl/pp_ctl.c#709~34776~ 2008-11-08 04:38:36.000000000 -0800
+++ perl/pp_ctl.c 2008-11-16 13:38:30.000000000 -0800
@@ -3728,7 +3728,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_parser->linestr);
PUTBACK;
ok = doeval(gimme, NULL, runcv, seq);
End of Patch.
