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