From 6735c0dc832bbcf3ae0365f76a73f095efd2bf8f Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Wed, 15 Oct 2003 15:34:32 +0000
Subject: titi doesn't suck

---
 perl-install/any.pm | 1 +
 1 file changed, 1 insertion(+)

(limited to 'perl-install')

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->($_)} } @_;
 }
-- 
cgit v1.2.1