diff options
Diffstat (limited to 'urpm/util.pm')
| -rw-r--r-- | urpm/util.pm | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/urpm/util.pm b/urpm/util.pm index 0423a094..008f2e89 100644 --- a/urpm/util.pm +++ b/urpm/util.pm @@ -7,6 +7,7 @@ our @EXPORT = qw(quotespace unquotespace remove_internal_name reduce_pathname offset_pathname md5sum untaint + difference2 ); #- quoting/unquoting a string that may be containing space chars. @@ -94,6 +95,8 @@ sub move { rename($file, $dest) or !system("/bin/mv", "-f", $file, $dest); } +sub difference2 { my %l; @l{@{$_[1]}} = (); grep { !exists $l{$_} } @{$_[0]} } + 1; __END__ |