summaryrefslogtreecommitdiff
path: root/op.c
diff options
context:
space:
mode:
authorGurusamy Sarathy <gsar@cpan.org>1999-10-15 08:55:01 +0000
committerGurusamy Sarathy <gsar@cpan.org>1999-10-15 08:55:01 +0000
commita7089531ba6cec0dc577ea527da80d08bb5964dd (patch)
tree657c8b7b5140b93c07b9933aa71126c064e0fe83 /op.c
parent45447e0de895cbfedb52c0fe32f88c2291b06536 (diff)
downloadperl-a7089531ba6cec0dc577ea527da80d08bb5964dd.tar.gz
disable internal globbing for miniperl (or build breaks out
in a rash of failed dependencies) p4raw-id: //depot/perl@4389
Diffstat (limited to 'op.c')
-rw-r--r--op.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/op.c b/op.c
index 99151dcf66..64d801ff62 100644
--- a/op.c
+++ b/op.c
@@ -5181,7 +5181,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);
-#ifdef PERL_INTERNAL_GLOB
+#if defined(PERL_INTERNAL_GLOB) && !defined(MINIPERL_BUILD)
/* XXX this can be tightened up and made more failsafe. */
if (!gv) {
OP *modname = newSVOP(OP_CONST, 0, newSVpvn("File::Glob", 10));
@@ -5192,7 +5192,7 @@ Perl_ck_glob(pTHX_ OP *o)
gv = gv_fetchpv("CORE::GLOBAL::glob", FALSE, SVt_PVCV);
LEAVE;
}
-#endif /* PERL_INTERNAL_GLOB */
+#endif /* PERL_INTERNAL_GLOB && !MINIPERL_BUILD */
if (gv && GvIMPORTED_CV(gv)) {
append_elem(OP_GLOB, o,