diff options
| author | Nicholas Clark <nick@ccl4.org> | 2008-11-18 11:09:47 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2008-11-18 11:09:47 +0000 |
| commit | 606f8fc8222f5bd75c0a46b2d82c7f0f0800f301 (patch) | |
| tree | ee7fc114a26744e4ddd1410f92db9f9f1f31b902 /pp_ctl.c | |
| parent | 27382b8e6a962ca9892f6b2cc051439368e18043 (diff) | |
| download | perl-606f8fc8222f5bd75c0a46b2d82c7f0f0800f301.tar.gz | |
Rafael noticed a bug in 34873 - I was comparing against the wrong
variable, and hence (usually) saving all globs, not just those that
should be kept.
p4raw-id: //depot/perl@34879
Diffstat (limited to 'pp_ctl.c')
| -rw-r--r-- | pp_ctl.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -3731,7 +3731,7 @@ PP(pp_entereval) PUTBACK; ok = doeval(gimme, NULL, runcv, seq); if ((PERLDB_LINE || PERLDB_SAVESRC) - && was != (I32)PL_sub_generation /* Some subs defined here. */ + && was != (U32)PL_breakable_sub_generation /* Some subs defined here. */ && ok) { /* Just need to change the string in our writable scratch buffer that will be used at scope exit to delete this eval's "file" name, to |