diff options
| -rw-r--r-- | gnu/usr.bin/perl/taint.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/gnu/usr.bin/perl/taint.c b/gnu/usr.bin/perl/taint.c index 6776272782c..cd3ec8e2813 100644 --- a/gnu/usr.bin/perl/taint.c +++ b/gnu/usr.bin/perl/taint.c @@ -45,6 +45,9 @@ taint_env() NULL }; + if (!envgv) + return; + #ifdef VMS int i = 0; char name[10 + TYPE_DIGITS(int)] = "DCL$PATH"; |