diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2002-07-31 00:07:30 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2002-07-31 00:07:30 +0000 |
| commit | e14829cc6aa3bcb315e330b1bcb5f82676fb26d3 (patch) | |
| tree | d757593d3190d53a41943ae5da29efd4db19ab35 /MDK/Common/DataStructure.pm | |
| parent | bce512bc41bf288fc6f94d3e092f525dd8541345 (diff) | |
| download | perl-MDK-Common-e14829cc6aa3bcb315e330b1bcb5f82676fb26d3.tar perl-MDK-Common-e14829cc6aa3bcb315e330b1bcb5f82676fb26d3.tar.gz perl-MDK-Common-e14829cc6aa3bcb315e330b1bcb5f82676fb26d3.tar.bz2 perl-MDK-Common-e14829cc6aa3bcb315e330b1bcb5f82676fb26d3.tar.xz perl-MDK-Common-e14829cc6aa3bcb315e330b1bcb5f82676fb26d3.zip | |
- perl_checker: add *much* stricter syntax rules
- adapt *.pm's to those rules
Diffstat (limited to 'MDK/Common/DataStructure.pm')
| -rw-r--r-- | MDK/Common/DataStructure.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/MDK/Common/DataStructure.pm b/MDK/Common/DataStructure.pm index 0becc8d..6e6ab12 100644 --- a/MDK/Common/DataStructure.pm +++ b/MDK/Common/DataStructure.pm @@ -131,7 +131,7 @@ sub is_empty_hash_ref { my $a = shift; !defined $a || keys(%$a) == 0 } sub uniq { my %l; $l{$_} = 1 foreach @_; grep { delete $l{$_} } @_ } sub difference2 { my %l; @l{@{$_[1]}} = (); grep { !exists $l{$_} } @{$_[0]} } -sub intersection { my (%l, @m); @l{@{shift @_}} = (); foreach (@_) { @m = grep { exists $l{$_} } @$_; %l = (); @l{@m} = (); } keys %l } +sub intersection { my (%l, @m); @l{@{shift @_}} = (); foreach (@_) { @m = grep { exists $l{$_} } @$_; %l = (); @l{@m} = () } keys %l } sub next_val_in_array { |