This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
For both opmini.o and perlmini.o define PERL_EXTERNAL_GLOB and PERL_IS_MINIPERL
authorNicholas Clark <nick@ccl4.org>
Mon, 16 Aug 2010 19:22:44 +0000 (21:22 +0200)
committerNicholas Clark <nick@ccl4.org>
Mon, 16 Aug 2010 21:15:23 +0000 (23:15 +0200)
Previously only opmini.o was compiled with -DPERL_EXTERNAL_GLOB, and only
perlmini.o with -DPERL_IS_MINIPERL. Add "PERL_EXTERNAL_GLOB" to the output
of (mini)perl -V if it is defined.

Makefile.SH
perl.c

index 477ca25..77c214f 100644 (file)
@@ -598,14 +598,14 @@ opmini.c: op.c
        \$(CPS) op.c opmini.c
 
 opmini\$(OBJ_EXT): opmini.c
-       \$(CCCMD) \$(PLDLFLAGS) $DPERL_EXTERNAL_GLOB opmini.c
+       \$(CCCMD) \$(PLDLFLAGS) $DPERL_IS_MINIPERL $DPERL_EXTERNAL_GLOB opmini.c
 
 perlmini.c: perl.c
        \$(RMS) perlmini.c
        \$(CPS) perl.c perlmini.c
 
 perlmini\$(OBJ_EXT): perlmini.c
-       \$(CCCMD) \$(PLDLFLAGS) $DPERL_IS_MINIPERL perlmini.c
+       \$(CCCMD) \$(PLDLFLAGS) $DPERL_IS_MINIPERL $DPERL_EXTERNAL_GLOB perlmini.c
 
 globals\$(OBJ_EXT): uudmap.h bitcount.h
 
diff --git a/perl.c b/perl.c
index 985ddf3..7a1c543 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -1664,6 +1664,9 @@ S_Internals_V(pTHX_ CV *cv)
 #  ifdef PERL_DONT_CREATE_GVSV
                             " PERL_DONT_CREATE_GVSV"
 #  endif
+#  ifdef PERL_EXTERNAL_GLOB
+                            " PERL_EXTERNAL_GLOB"
+#  endif
 #  ifdef PERL_IS_MINIPERL
                             " PERL_IS_MINIPERL"
 #  endif