diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2002-12-04 18:49:15 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2002-12-04 18:49:15 +0000 |
commit | 5bd8090f2565d5916255e68eb50d70ddd07681f6 (patch) | |
tree | 6ce5628ef9bc16cc018ecc1d8aa6f60f8692e744 /MDK | |
parent | 8f48fd94bf41b4c062db2a32803c4abd22b81a33 (diff) | |
download | perl-MDK-Common-5bd8090f2565d5916255e68eb50d70ddd07681f6.tar perl-MDK-Common-5bd8090f2565d5916255e68eb50d70ddd07681f6.tar.gz perl-MDK-Common-5bd8090f2565d5916255e68eb50d70ddd07681f6.tar.bz2 perl-MDK-Common-5bd8090f2565d5916255e68eb50d70ddd07681f6.tar.xz perl-MDK-Common-5bd8090f2565d5916255e68eb50d70ddd07681f6.zip |
fix (old!) typo
Diffstat (limited to 'MDK')
-rw-r--r-- | MDK/Common/Globals.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/MDK/Common/Globals.pm b/MDK/Common/Globals.pm index 1bda892..0e73b83 100644 --- a/MDK/Common/Globals.pm +++ b/MDK/Common/Globals.pm @@ -23,7 +23,7 @@ sub import { no strict 'refs'; my $v = caller() . '::' . $_; - my $lv = "$foo __ $_"; + my $lv = "$name __ $_"; *$v = *$lv; eval { undef = $$lv; tie $$lv, 'MDK::Common::Globals', $_ }; } |