diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-11-16 21:38:30 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-11-16 21:38:30 +0000 |
| commit | a44e3ce226529598e55244bb1f9f6372951c51d6 (patch) | |
| tree | 8e3d8e7f3617a2a2407df92ded51cf7b7964b7ce /pp_ctl.c | |
| parent | 47a7661deb880b9c5c3ea4517c4908096fdff41f (diff) | |
| download | perl-a44e3ce226529598e55244bb1f9f6372951c51d6.tar.gz | |
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..)
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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); |