From: Todd C. Miller <Todd.Miller@courtesan.com>
Date: Wed, 30 Dec 1998 21:11:05 +0000 (-0700)
Subject: "perl -T -P" dumps core on OpenBSD and Linux
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=142393a6492fce5c4bb6f282b1ba1d8da7c0064b;p=p5sagit%2Fp5-mst-13.2.git

"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
--- 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";