From: Nicholas Clark <nick@ccl4.org>
Date: Thu, 18 Jan 2007 23:36:57 +0000 (+0000)
Subject: Move the flag checking for isGV_with_GP() into the call to visit()
X-Git-Tag: accepted/trunk/20130322.191538~16098
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=d011219a10588387f38d2a324f878298ed1ec560;p=platform%2Fupstream%2Fperl.git

Move the flag checking for isGV_with_GP() into the call to visit()

p4raw-id: //depot/perl@29876
---

diff --git a/sv.c b/sv.c
index b602dda..bbf758f 100644
--- a/sv.c
+++ b/sv.c
@@ -471,7 +471,8 @@ do_clean_named_objs(pTHX_ SV *sv)
 {
     dVAR;
     assert(SvTYPE(sv) == SVt_PVGV);
-    if (isGV_with_GP(sv) && GvGP(sv)) {
+    assert(isGV_with_GP(sv));
+    if (GvGP(sv)) {
 	if ((
 #ifdef PERL_DONT_CREATE_GVSV
 	     GvSV(sv) &&
@@ -506,7 +507,7 @@ Perl_sv_clean_objs(pTHX)
     visit(do_clean_objs, SVf_ROK, SVf_ROK);
 #ifndef DISABLE_DESTRUCTOR_KLUDGE
     /* some barnacles may yet remain, clinging to typeglobs */
-    visit(do_clean_named_objs, SVt_PVGV, SVTYPEMASK);
+    visit(do_clean_named_objs, SVt_PVGV|SVpgv_GP, SVTYPEMASK|SVp_POK|SVpgv_GP);
 #endif
     PL_in_clean_objs = FALSE;
 }