Commit | Line | Data |
---|---|---|
42cb3b6d S |
1 | # This library is no longer being maintained, and is included for backward |
2 | # compatibility with Perl 4 programs which may require it. | |
3 | # This legacy library is deprecated and will be removed in a future | |
4 | # release of perl. | |
5 | ||
378cc40b LW |
6 | ;# This file, when interpreted, pulls the environment into normal variables. |
7 | ;# Usage: | |
154e51a4 | 8 | ;# require 'importenv.pl'; |
378cc40b LW |
9 | ;# or |
10 | ;# #include <importenv.pl> | |
11 | ||
12 | local($tmp,$key) = ''; | |
13 | ||
8ebc5c01 | 14 | foreach $key (keys(%ENV)) { |
378cc40b LW |
15 | $tmp .= "\$$key = \$ENV{'$key'};" if $key =~ /^[A-Za-z]\w*$/; |
16 | } | |
17 | eval $tmp; | |
a687059c LW |
18 | |
19 | 1; |