Commit | Line | Data |
---|---|---|
86530b38 AT |
1 | # NOTE: Derived from blib/lib/Inline.pm. |
2 | # Changes made here will be lost when autosplit is run again. | |
3 | # See AutoSplit.pm. | |
4 | package Inline; | |
5 | ||
6 | #line 973 "blib/lib/Inline.pm (autosplit into blib/lib/auto/Inline/env_untaint.al)" | |
7 | #============================================================================== | |
8 | # Blindly untaint tainted fields in Inline object. | |
9 | #============================================================================== | |
10 | sub env_untaint { | |
11 | my $o = shift; | |
12 | ||
13 | for (keys %ENV) { | |
14 | ($ENV{$_}) = $ENV{$_} =~ /(.*)/; | |
15 | } | |
16 | my $delim = $^O eq 'MSWin32' ? ';' : ':'; | |
17 | $ENV{PATH} = join $delim, grep {not /^\./ and | |
18 | not ((stat($_))[2] & 0022) | |
19 | } split $delim, $ENV{PATH}; | |
20 | map {($_) = /(.*)/} @INC; | |
21 | } | |
22 | ||
23 | # end of Inline::env_untaint | |
24 | 1; |