Change 34865 by [EMAIL PROTECTED] on 2008/11/17 11:05:30
Integrate:
[ 34857]
Integrate:
[ 34841]
Change 34693 introduced a regression spotted by Devel::SmallProf.
Affected files ...
... //depot/maint-5.10/perl/pp_ctl.c#25 integrate
Differences ...
==== //depot/maint-5.10/perl/pp_ctl.c#25 (text) ====
Index: perl/pp_ctl.c
--- perl/pp_ctl.c#24~34715~ 2008-11-04 00:28:29.000000000 -0800
+++ perl/pp_ctl.c 2008-11-17 03:05:30.000000000 -0800
@@ -3648,7 +3648,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.
