diff options
| -rw-r--r-- | urpm/util.pm | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/urpm/util.pm b/urpm/util.pm index 65fb5f77..bad6ce8b 100644 --- a/urpm/util.pm +++ b/urpm/util.pm @@ -6,6 +6,7 @@ use strict; use Exporter; our @ISA = 'Exporter'; our @EXPORT = qw(min max quotespace unquotespace + add2hash_ remove_internal_name reduce_pathname offset_pathname untaint @@ -151,6 +152,7 @@ sub formatList { join(", ", @_ <= $nb ? @_ : (@_[0..$nb-1], '...')); } +sub add2hash_ { my ($a, $b) = @_; while (my ($k, $v) = each %{$b || {}}) { exists $a->{$k} or $a->{$k} = $v } $a } sub put_in_hash { my ($a, $b) = @_; while (my ($k, $v) = each %{$b || {}}) { $a->{$k} = $v } $a } sub uniq { my %l; $l{$_} = 1 foreach @_; grep { delete $l{$_} } @_ } sub difference2 { my %l; @l{@{$_[1]}} = (); grep { !exists $l{$_} } @{$_[0]} } |