diff options
| author | Guillaume Cottenceau <gc@mandriva.com> | 2003-10-15 15:34:24 +0000 |
|---|---|---|
| committer | Guillaume Cottenceau <gc@mandriva.com> | 2003-10-15 15:34:24 +0000 |
| commit | f2cd7b2f753d5f708308150538d36787d1f098ba (patch) | |
| tree | df3e1fe770b6ac8c300f2511f4b095253ba13554 | |
| parent | 86ca0f86c5602289aac6584cd6592d201f231f17 (diff) | |
| download | perl-MDK-Common-f2cd7b2f753d5f708308150538d36787d1f098ba.tar perl-MDK-Common-f2cd7b2f753d5f708308150538d36787d1f098ba.tar.gz perl-MDK-Common-f2cd7b2f753d5f708308150538d36787d1f098ba.tar.bz2 perl-MDK-Common-f2cd7b2f753d5f708308150538d36787d1f098ba.tar.xz perl-MDK-Common-f2cd7b2f753d5f708308150538d36787d1f098ba.zip | |
titi doesn't suck
| -rw-r--r-- | MDK/Common/DataStructure.pm | 1 |
1 files changed, 1 insertions, 0 deletions
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->($_)} } @_; } |