diff options
| author | Todd C. Miller <millert@cvs.openbsd.org> | 1998-12-31 04:07:30 +0000 |
|---|---|---|
| committer | Todd C. Miller <millert@cvs.openbsd.org> | 1998-12-31 04:07:30 +0000 |
| commit | b8fb19a05702431b353055a718f2de5401350912 (patch) | |
| tree | f51004f64db047dbd2d783bc01e294df3690a4c5 /gnu/usr.bin/perl/taint.c | |
| parent | d0e03ced81ad659881f673d0e9c95c31e7aaae0d (diff) | |
keep 'perl -T -P' from dumping core
Diffstat (limited to 'gnu/usr.bin/perl/taint.c')
| -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"; |