From: Benjamin Sugars <bsugars@canoe.ca>
Date: Mon, 16 Apr 2001 13:23:59 +0000 (-0400)
Subject: Fix core dump from undef %File::Glob::
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=445266f0938267c411534829fc317a7638dc4908;p=p5sagit%2Fp5-mst-13.2.git

Fix core dump from undef %File::Glob::
Message-ID: <Pine.LNX.4.21.0104161313160.1676-100000@marmot.rim.canoe.ca>

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

diff --git a/op.c b/op.c
index aa0b1e7..6cd2f9a 100644
--- a/op.c
+++ b/op.c
@@ -5870,6 +5870,7 @@ Perl_ck_glob(pTHX_ OP *o)
 	gv = gv_fetchpv("CORE::GLOBAL::glob", FALSE, SVt_PVCV);
 	glob_gv = gv_fetchpv("File::Glob::csh_glob", FALSE, SVt_PVCV);
 	GvCV(gv) = GvCV(glob_gv);
+	SvREFCNT_inc((SV*)GvCV(gv));
 	GvIMPORTED_CV_on(gv);
 	LEAVE;
     }