summaryrefslogtreecommitdiffstats
path: root/urpm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2008-02-26 19:17:20 +0000
committerPascal Rigaux <pixel@mandriva.com>2008-02-26 19:17:20 +0000
commit7802d075c4e3de9ca51eaff3f63a8bdb50f7b598 (patch)
tree781025349390915c6117ab08d3959e840f71ddea /urpm
parentcf54c60c29c84c85e7245eb896feeedc14c8b3c6 (diff)
downloadurpmi-7802d075c4e3de9ca51eaff3f63a8bdb50f7b598.tar
urpmi-7802d075c4e3de9ca51eaff3f63a8bdb50f7b598.tar.gz
urpmi-7802d075c4e3de9ca51eaff3f63a8bdb50f7b598.tar.bz2
urpmi-7802d075c4e3de9ca51eaff3f63a8bdb50f7b598.tar.xz
urpmi-7802d075c4e3de9ca51eaff3f63a8bdb50f7b598.zip
cleanup
Diffstat (limited to 'urpm')
-rw-r--r--urpm/removable.pm17
1 files changed, 6 insertions, 11 deletions
diff --git a/urpm/removable.pm b/urpm/removable.pm
index 9857489d..31c920ed 100644
--- a/urpm/removable.pm
+++ b/urpm/removable.pm
@@ -25,10 +25,8 @@ sub try_mounting {
#- so we try to remove suffixes from the dir name until the dir exists
? ($dir = urpm::sys::trim_until_d($dir))
: urpm::sys::find_mntpoints($dir = reduce_pathname($dir), \%infos);
- foreach (grep {
- ! $infos{$_}{mounted};
- } @mntpoints)
- {
+
+ foreach (grep { ! $infos{$_}{mounted} } @mntpoints) {
$urpm->{log}(N("mounting %s", $_));
if ($is_iso) {
#- to mount an iso image, grab the first loop device
@@ -46,13 +44,10 @@ sub try_mounting {
sub try_umounting {
my ($urpm, $dir) = @_;
- my %infos;
$dir = reduce_pathname($dir);
- foreach (reverse grep {
- $infos{$_}{mounted};
- } urpm::sys::find_mntpoints($dir, \%infos))
- {
+ my @l = grep { $infos{$_}{mounted} } urpm::sys::find_mntpoints($dir, {});
+ foreach (reverse @l) {
$urpm->{log}(N("unmounting %s", $_));
sys_log("umount $_");
system("umount '$_' 2>/dev/null");
@@ -173,8 +168,8 @@ sub copy_packages_of_removable_media {
#- check if a removable device is already mounted (and files present).
if (my ($already_mounted_medium) = grep { !$check_notfound->($_) } @sorted_media) {
- @sorted_media = grep { $_ ne $already_mounted_medium } @sorted_media;
- unshift @sorted_media, $already_mounted_medium;
+ @sorted_media = ($already_mounted_medium,
+ grep { $_ ne $already_mounted_medium } @sorted_media);
}
#- mount all except the biggest one.