summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--urpm/util.pm3
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;