summaryrefslogtreecommitdiffstats
path: root/perl-install/any.pm
diff options
context:
space:
mode:
authorGuillaume Cottenceau <gc@mandriva.com>2003-10-15 15:34:32 +0000
committerGuillaume Cottenceau <gc@mandriva.com>2003-10-15 15:34:32 +0000
commit6735c0dc832bbcf3ae0365f76a73f095efd2bf8f (patch)
tree91e7d8dc9000759838b437cf7460e2ecce335932 /perl-install/any.pm
parentf5bb90ed73e648047508f57f212618dd45825391 (diff)
downloaddrakx-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.pm1
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->($_)} } @_;
}