Declare PERL_IS_MINIPERL in the output of ./{mini,}perl -V
Nicholas Clark [Wed, 23 Sep 2009 09:02:21 +0000 (10:02 +0100)]
(It should never happen that miniperl gets into production, but make something
foolproof and ...)

perl.c

diff --git a/perl.c b/perl.c
index e80b9e4..22c18eb 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -1774,6 +1774,9 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit)
 #  ifdef PERL_DONT_CREATE_GVSV
                             " PERL_DONT_CREATE_GVSV"
 #  endif
+#  ifdef PERL_IS_MINIPERL
+                            " PERL_IS_MINIPERL"
+#  endif
 #  ifdef PERL_MALLOC_WRAP
                             " PERL_MALLOC_WRAP"
 #  endif