diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-12-05 07:49:28 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-12-05 07:49:28 +0000 |
| commit | 52bb0670c0d245e31203752693ee9e8bb24422b0 (patch) | |
| tree | f8fbf1a34f0d69bd68df3ad35f7bc7e3143c890a /op.c | |
| parent | 770bbf7fa6ce320a36c372f3f2c4e5c114f0c097 (diff) | |
| download | perl-52bb0670c0d245e31203752693ee9e8bb24422b0.tar.gz | |
make File::Glob::glob() the default for CORE::glob()
(old csh glob can still be had with -DPERL_EXTERNAL_GLOB)
p4raw-id: //depot/perl@4649
Diffstat (limited to 'op.c')
| -rw-r--r-- | op.c | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -5370,7 +5370,7 @@ Perl_ck_glob(pTHX_ OP *o) if (!((gv = gv_fetchpv("glob", FALSE, SVt_PVCV)) && GvIMPORTED_CV(gv))) gv = gv_fetchpv("CORE::GLOBAL::glob", FALSE, SVt_PVCV); -#if defined(PERL_INTERNAL_GLOB) && !defined(MINIPERL_BUILD) +#if !defined(PERL_EXTERNAL_GLOB) /* XXX this can be tightened up and made more failsafe. */ if (!gv) { OP *modname = newSVOP(OP_CONST, 0, newSVpvn("File::Glob", 10)); @@ -5381,7 +5381,7 @@ Perl_ck_glob(pTHX_ OP *o) gv = gv_fetchpv("CORE::GLOBAL::glob", FALSE, SVt_PVCV); LEAVE; } -#endif /* PERL_INTERNAL_GLOB && !MINIPERL_BUILD */ +#endif /* PERL_EXTERNAL_GLOB */ if (gv && GvIMPORTED_CV(gv)) { append_elem(OP_GLOB, o, |