"perl -T -P" dumps core on OpenBSD and Linux

To: perlbug@perl.com
Message-Id: <199812310411.VAA37568@xerxes.courtesan.com>

p4raw-id: //depot/cfgperl@2545

diff --git a/taint.c b/taint.c
index 655cec8..cdf9a7e 100644 (file)
--- a/taint.c
+++ b/taint.c
@@ -46,6 +46,9 @@ taint_env(void)
        NULL
     };
 
+    if (!PL_envgv)
+       return;
+
 #ifdef VMS
     int i = 0;
     char name[10 + TYPE_DIGITS(int)] = "DCL$PATH";