diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2003-10-15 15:34:32 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2003-10-15 15:34:32 +0000 |
| commit | 6735c0dc832bbcf3ae0365f76a73f095efd2bf8f (patch) | |
| tree | 91e7d8dc9000759838b437cf7460e2ecce335932 /perl-install/any.pm | |
| parent | f5bb90ed73e648047508f57f212618dd45825391 (diff) | |
| download | drakx-6735c0dc832bbcf3ae0365f76a73f095efd2bf8f.tar drakx-6735c0dc832bbcf3ae0365f76a73f095efd2bf8f.tar.gz drakx-6735c0dc832bbcf3ae0365f76a73f095efd2bf8f.tar.bz2 drakx-6735c0dc832bbcf3ae0365f76a73f095efd2bf8f.tar.xz drakx-6735c0dc832bbcf3ae0365f76a73f095efd2bf8f.zip | |
titi doesn't suck
Diffstat (limited to 'perl-install/any.pm')
| -rw-r--r-- | perl-install/any.pm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm index d9ed66fce..2a8ca998b 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -661,6 +661,7 @@ sub autologin { #- part of perl-MDK-Common-1.1.7-2mdk but since cooker is frozen... sub uniq_(&@) { my $f = shift; + my %l; $l{$f->($_)} = 1 foreach @_; grep { delete $l{$f->($_)} } @_; } |