projects
/
p5sagit/p5-mst-13.2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
Remove two warnings (sub diag() was redefined, and implict split is
[p5sagit/p5-mst-13.2.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;