diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-10 11:48:14 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2001-10-10 11:48:14 +0000 |
| commit | fea335d77e91ea87e7356d5b1791fc013093ffaa (patch) | |
| tree | 8ebaaf79ac24b8f447dcbb1b3f0b51c6cfaaed27 /lib/File | |
| parent | 349e1be188d528e573d1d7b9ae200dd93769fda1 (diff) | |
| download | perl-fea335d77e91ea87e7356d5b1791fc013093ffaa.tar.gz | |
In VMS the copy-to-untaint %ENV in the initialization also loses
all of the extra VMSish attributes (such as "treat this logical
as a device name") that are necessary to make programs run.
A tainted %ENV does not hinder VMS. From Charles Lane.
p4raw-id: //depot/perl@12390
Diffstat (limited to 'lib/File')
| -rw-r--r-- | lib/File/Find/t/taint.t | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lib/File/Find/t/taint.t b/lib/File/Find/t/taint.t index 73006e50c0..09150494e6 100644 --- a/lib/File/Find/t/taint.t +++ b/lib/File/Find/t/taint.t @@ -15,8 +15,10 @@ BEGIN { use Config; BEGIN { - for (keys %ENV) { # untaint ENV - ($ENV{$_}) = $ENV{$_} =~ /(.*)/; + if ($^O ne 'VMS') { + for (keys %ENV) { # untaint ENV + ($ENV{$_}) = $ENV{$_} =~ /(.*)/; + } } # Remove insecure directories from PATH |