diff options
| -rw-r--r-- | urpm/util.pm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/urpm/util.pm b/urpm/util.pm index fafc5c2e..75133c6c 100644 --- a/urpm/util.pm +++ b/urpm/util.pm @@ -9,7 +9,7 @@ our @EXPORT = qw(quotespace unquotespace remove_internal_name reduce_pathname offset_pathname md5sum untaint - difference2 + difference2 member ); (our $VERSION) = q($Revision$) =~ /(\d+)/; @@ -109,6 +109,7 @@ sub move { } sub difference2 { my %l; @l{@{$_[1]}} = (); grep { !exists $l{$_} } @{$_[0]} } +sub member { my $e = shift; foreach (@_) { $e eq $_ and return 1 } 0 } 1; |