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 /gv.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 'gv.c')
| -rw-r--r-- | gv.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -2628,7 +2628,7 @@ Perl_gv_try_downgrade(pTHX_ GV *gv) /* XXX Why and where does this leave dangling pointers during global destruction? */ - if (PL_dirty) return; + if (PL_phase == PERL_PHASE_DESTRUCT) return; if (!(SvREFCNT(gv) == 1 && SvTYPE(gv) == SVt_PVGV && !SvFAKE(gv) && !SvOBJECT(gv) && !SvREADONLY(gv) && |