summaryrefslogtreecommitdiff
path: root/op.c
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>2003-08-31 19:25:41 -0700
committerJarkko Hietaniemi <jhi@iki.fi>2003-09-01 08:49:02 +0000
commitf444d49658e3e31ba2664f713eb9290d716237e9 (patch)
tree2e5899c0a4895e3f6993784f4b0e928e426bd124 /op.c
parenteaf637cfe2d37262a1b3eba8b28b941eab0e25e7 (diff)
downloadperl-f444d49658e3e31ba2664f713eb9290d716237e9.tar.gz
glob() bug
Message-Id: <200309010925.h819Pf0X011457@smtp3.ActiveState.com> p4raw-id: //depot/perl@20980
Diffstat (limited to 'op.c')
-rw-r--r--op.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/op.c b/op.c
index a4b20e7c15..d859e2aa62 100644
--- a/op.c
+++ b/op.c
@@ -5311,7 +5311,7 @@ Perl_ck_glob(pTHX_ OP *o)
#if !defined(PERL_EXTERNAL_GLOB)
/* XXX this can be tightened up and made more failsafe. */
- if (!gv) {
+ if (!(gv && GvCVu(gv) && GvIMPORTED_CV(gv))) {
GV *glob_gv;
ENTER;
Perl_load_module(aTHX_ PERL_LOADMOD_NOIMPORT,