diff options
| author | Pascal Rigaux <pixel@mandriva.com> | 2006-11-03 13:37:40 +0000 |
|---|---|---|
| committer | Pascal Rigaux <pixel@mandriva.com> | 2006-11-03 13:37:40 +0000 |
| commit | 3e7012bc9d1b97defc35901d5a31cc928bc23131 (patch) | |
| tree | 969a9d5b43dd3d8622fe00a489d1d5491a0d725f | |
| parent | 91d1d5e40d3ba242573012a093e8b5cc1e7c5bc4 (diff) | |
| download | urpmi-3e7012bc9d1b97defc35901d5a31cc928bc23131.tar urpmi-3e7012bc9d1b97defc35901d5a31cc928bc23131.tar.gz urpmi-3e7012bc9d1b97defc35901d5a31cc928bc23131.tar.bz2 urpmi-3e7012bc9d1b97defc35901d5a31cc928bc23131.tar.xz urpmi-3e7012bc9d1b97defc35901d5a31cc928bc23131.zip | |
add member()
| -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; |