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 73006e5..0915049 100644 (file)
--- 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