Allow ~~ overloading on the left side, when the right side is a plain scalar
[perl.git] / lib / importenv.pl
1 ;# This file, when interpreted, pulls the environment into normal variables.
2 ;# Usage:
3 ;#      require 'importenv.pl';
4 ;# or
5 ;#      #include <importenv.pl>
6
7 local($tmp,$key) = '';
8
9 foreach $key (keys(%ENV)) {
10     $tmp .= "\$$key = \$ENV{'$key'};" if $key =~ /^[A-Za-z]\w*$/;
11 }
12 eval $tmp;
13
14 1;