diff options
Diffstat (limited to 'lib/Env.pm')
| -rw-r--r-- | lib/Env.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/Env.pm b/lib/Env.pm index f2fe4af422..b0afc3b2db 100644 --- a/lib/Env.pm +++ b/lib/Env.pm @@ -45,14 +45,14 @@ Chip Salzenberg E<lt>F<chip@fin.uucp>E<gt> sub import { my ($callpack) = caller(0); my $pack = shift; - my @vars = @_ ? @_ : keys(%ENV); + my @vars = grep /^[A-Za-z_]\w*$/, (@_ ? @_ : keys(%ENV)); return unless @vars; eval "package $callpack; use vars qw(" . join(' ', map { '$'.$_ } @vars) . ")"; die $@ if $@; foreach (@vars) { - tie ${"${callpack}::$_"}, Env, $_ if /^[A-Za-z_]\w*$/; + tie ${"${callpack}::$_"}, Env, $_; } } |