diff options
Diffstat (limited to 'lib/importenv.pl')
-rw-r--r-- | lib/importenv.pl | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/lib/importenv.pl b/lib/importenv.pl new file mode 100644 index 0000000000..c0c2be088e --- /dev/null +++ b/lib/importenv.pl @@ -0,0 +1,14 @@ +;# $Header: importenv.pl,v 2.0 88/06/05 00:16:17 root Exp $ + +;# This file, when interpreted, pulls the environment into normal variables. +;# Usage: +;# do 'importenv.pl'; +;# or +;# #include <importenv.pl> + +local($tmp,$key) = ''; + +foreach $key (keys(ENV)) { + $tmp .= "\$$key = \$ENV{'$key'};" if $key =~ /^[A-Za-z]\w*$/; +} +eval $tmp; |