From f2cd7b2f753d5f708308150538d36787d1f098ba Mon Sep 17 00:00:00 2001 From: Guillaume Cottenceau Date: Wed, 15 Oct 2003 15:34:24 +0000 Subject: titi doesn't suck --- MDK/Common/DataStructure.pm | 1 + 1 file changed, 1 insertion(+) (limited to 'MDK') diff --git a/MDK/Common/DataStructure.pm b/MDK/Common/DataStructure.pm index ee649ea..26c8b0f 100644 --- a/MDK/Common/DataStructure.pm +++ b/MDK/Common/DataStructure.pm @@ -144,6 +144,7 @@ sub intersection { my (%l, @m); @l{@{shift @_}} = (); foreach (@_) { @m = grep { sub uniq_(&@) { my $f = shift; + my %l; $l{$f->($_)} = 1 foreach @_; grep { delete $l{$f->($_)} } @_; } -- cgit v1.2.1