From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 10 Oct 2001 11:48:14 +0000 (+0000)
Subject: In VMS the copy-to-untaint %ENV in the initialization also loses
X-Git-Tag: upstream/5.16.3~29978
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=fea335d77e91ea87e7356d5b1791fc013093ffaa;p=platform%2Fupstream%2Fperl.git

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

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