From 627364f14af689f968a4854d02bdcc59ee644657 Mon Sep 17 00:00:00 2001
From: Florian Ragwitz <rafl@debian.org>
Date: Fri, 1 Oct 2010 23:28:36 +0200
Subject: Eliminate PL_dirty

It now only exists as a compatibility macro for extensions that want to
introspect it.
---
 gv.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'gv.c')

diff --git a/gv.c b/gv.c
index 691dbbab23..9f62066f74 100644
--- a/gv.c
+++ b/gv.c
@@ -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) &&
-- 
cgit v1.2.1