diff options
| author | Florian Ragwitz <rafl@debian.org> | 2010-10-01 23:28:36 +0200 |
|---|---|---|
| committer | Florian Ragwitz <rafl@debian.org> | 2010-11-14 17:18:05 +0100 |
| commit | 627364f14af689f968a4854d02bdcc59ee644657 (patch) | |
| tree | 46d02fa1c9cc5bc3134242965ad1851b66ee7a21 /pad.c | |
| parent | 9ebf26ad4d30e289feeaec20ee238d6874f4b27e (diff) | |
| download | perl-627364f14af689f968a4854d02bdcc59ee644657.tar.gz | |
Eliminate PL_dirty
It now only exists as a compatibility macro for extensions that want to
introspect it.
Diffstat (limited to 'pad.c')
| -rw-r--r-- | pad.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -277,7 +277,7 @@ Perl_pad_undef(pTHX_ CV* cv) /* XXX DAPM for efficiency, we should only do this if we know we have * children, or integrate this loop with general cleanup */ - if (!PL_dirty) { /* don't bother during global destruction */ + if (PL_phase != PERL_PHASE_DESTRUCT) { /* don't bother during global destruction */ CV * const outercv = CvOUTSIDE(cv); const U32 seq = CvOUTSIDE_SEQ(cv); AV * const comppad_name = MUTABLE_AV(AvARRAY(padlist)[0]); |