From f248d07102861fd4d0819cc0b602f81105bc562c Mon Sep 17 00:00:00 2001
From: Gurusamy Sarathy <gsar@cpan.org>
Date: Thu, 8 Jul 1999 01:24:25 +0000
Subject: fixes for logical bugs in the lexwarn patch; other tweaks to avoid
 type mismatch problems

p4raw-id: //depot/perl@3658
---
 gv.c | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'gv.c')

diff --git a/gv.c b/gv.c
index 9fcf55b550..470ef11ccb 100644
--- a/gv.c
+++ b/gv.c
@@ -947,14 +947,16 @@ Perl_gp_ref(pTHX_ GP *gp)
 void
 Perl_gp_free(pTHX_ GV *gv)
 {
+    dTHR;  
     GP* gp;
     CV* cv;
-    dTHR;  
 
     if (!gv || !(gp = GvGP(gv)))
 	return;
-    if (gp->gp_refcnt == 0 && ckWARN_d(WARN_INTERNAL)) {
-        Perl_warner(aTHX_ WARN_INTERNAL, "Attempt to free unreferenced glob pointers");
+    if (gp->gp_refcnt == 0) {
+	if (ckWARN_d(WARN_INTERNAL))
+	    Perl_warner(aTHX_ WARN_INTERNAL,
+			"Attempt to free unreferenced glob pointers");
         return;
     }
     if (gp->gp_cv) {
-- 
cgit v1.2.1