diff options
author | Gurusamy Sarathy <gsar@cpan.org> | 2003-08-31 19:25:41 -0700 |
---|---|---|
committer | Jarkko Hietaniemi <jhi@iki.fi> | 2003-09-01 08:49:02 +0000 |
commit | f444d49658e3e31ba2664f713eb9290d716237e9 (patch) | |
tree | 2e5899c0a4895e3f6993784f4b0e928e426bd124 /op.c | |
parent | eaf637cfe2d37262a1b3eba8b28b941eab0e25e7 (diff) | |
download | perl-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.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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, |