summaryrefslogtreecommitdiff
path: root/taint.c
diff options
context:
space:
mode:
authorTodd C. Miller <Todd.Miller@courtesan.com>1998-12-30 14:11:05 -0700
committerJarkko Hietaniemi <jhi@iki.fi>1998-12-31 09:27:40 +0000
commit142393a6492fce5c4bb6f282b1ba1d8da7c0064b (patch)
treec32c78d6a636255a2cb6ff8146e1e77744b1390d /taint.c
parent206c6dae049d8c6fe2f9de084a5732c603b6c9d7 (diff)
downloadperl-142393a6492fce5c4bb6f282b1ba1d8da7c0064b.tar.gz
"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
Diffstat (limited to 'taint.c')
-rw-r--r--taint.c3
1 files changed, 3 insertions, 0 deletions
diff --git a/taint.c b/taint.c
index 655cec84ef..cdf9a7e535 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";