From: Rafael Garcia-Suarez <rgarciasuarez@gmail.com>
Date: Tue, 15 Jan 2002 00:22:52 +0000 (+0100)
Subject: small coredump correction
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=b1659a88ec61a39d8c196f1e8ff528b32637f67b;p=p5sagit%2Fp5-mst-13.2.git

small coredump correction
Message-ID: <20020115002252.I691@rafael>

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

diff --git a/op.c b/op.c
index c97dacd..8771d28 100644
--- a/op.c
+++ b/op.c
@@ -6052,10 +6052,12 @@ Perl_ck_glob(pTHX_ OP *o)
     if (!gv) {
 	GV *glob_gv;
 	ENTER;
-	Perl_load_module(aTHX_ PERL_LOADMOD_NOIMPORT, newSVpvn("File::Glob", 10), Nullsv,
-			 Nullsv, Nullsv);
+	Perl_load_module(aTHX_ PERL_LOADMOD_NOIMPORT,
+		newSVpvn("File::Glob", 10), Nullsv, Nullsv, Nullsv);
 	gv = gv_fetchpv("CORE::GLOBAL::glob", FALSE, SVt_PVCV);
 	glob_gv = gv_fetchpv("File::Glob::csh_glob", FALSE, SVt_PVCV);
+	if (!glob_gv)
+	    Perl_croak(aTHX_ "Can't locate File::Glob");
 	GvCV(gv) = GvCV(glob_gv);
 	SvREFCNT_inc((SV*)GvCV(gv));
 	GvIMPORTED_CV_on(gv);