bump $VERSION for Porting/Maintainers.pm to placate cmp_version.t

[perl5.git] / perl.c

diff --git a/perl.c b/perl.c
index d836b0b..65b0a1c 100644 (file)
--- a/perl.c
+++ b/perl.c
@@ -2192,7 +2192,8 @@ S_parse_body(pTHX_ char **env, XSINIT_t xsinit)
 #ifdef PERL_MAD
     {
        const char *s;
-    if ((s = PerlEnv_getenv("PERL_XMLDUMP"))) {
+    if (!PL_tainting &&
+        (s = PerlEnv_getenv("PERL_XMLDUMP"))) {
        PL_madskills = 1;
        PL_minus_c = 1;
        if (!s || !s[0])