summaryrefslogtreecommitdiff
path: root/Master/tlpkg/tlperl/lib/importenv.pl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/tlperl/lib/importenv.pl')
-rw-r--r--Master/tlpkg/tlperl/lib/importenv.pl19
1 files changed, 19 insertions, 0 deletions
diff --git a/Master/tlpkg/tlperl/lib/importenv.pl b/Master/tlpkg/tlperl/lib/importenv.pl
new file mode 100644
index 00000000000..865a22652d6
--- /dev/null
+++ b/Master/tlpkg/tlperl/lib/importenv.pl
@@ -0,0 +1,19 @@
+# This library is no longer being maintained, and is included for backward
+# compatibility with Perl 4 programs which may require it.
+# This legacy library is deprecated and will be removed in a future
+# release of perl.
+
+;# This file, when interpreted, pulls the environment into normal variables.
+;# Usage:
+;# require '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;
+
+1;