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;