diff options
Diffstat (limited to 'MDK/Common/DataStructure.pm')
| -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->($_)} } @_; } |