Change 14261 by jhi@alpha on 2002/01/15 01:25:11
Subject: [PATCH] small coredump correction
From: Rafael Garcia-Suarez <[EMAIL PROTECTED]>
Date: Tue, 15 Jan 2002 00:22:52 +0100
Message-ID: <20020115002252.I691@rafael>
Affected files ...
.... //depot/perl/op.c#477 edit
Differences ...
==== //depot/perl/op.c#477 (text) ====
Index: perl/op.c
--- perl/op.c.~1~ Mon Jan 14 18:30:07 2002
+++ perl/op.c Mon Jan 14 18:30:07 2002
@@ -6052,10 +6052,12 @@
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);
End of Patch.
