source:
for-distributions/trunk/bin/windows/perl/lib/importenv.pl@
14489
Last change on this file since 14489 was 14489, checked in by , 17 years ago | |
---|---|
File size: 356 bytes |
Line | |
---|---|
1 | ;# $RCSfile: importenv.pl,v $$Revision: 4.1 $$Date: 92/08/07 18:24:02 $ |
2 | |
3 | ;# This file, when interpreted, pulls the environment into normal variables. |
4 | ;# Usage: |
5 | ;# require 'importenv.pl'; |
6 | ;# or |
7 | ;# #include <importenv.pl> |
8 | |
9 | local($tmp,$key) = ''; |
10 | |
11 | foreach $key (keys(%ENV)) { |
12 | $tmp .= "\$$key = \$ENV{'$key'};" if $key =~ /^[A-Za-z]\w*$/; |
13 | } |
14 | eval $tmp; |
15 | |
16 | 1; |
Note:
See TracBrowser
for help on using the repository browser.