summaryrefslogtreecommitdiffstats
path: root/perl-install/share/logo-mandrake.png
Commit message (Expand)AuthorAgeFilesLines
* new icondamien2001-04-061-0/+0
* updateddamien2001-03-021-0/+0
* added png imagesdamien2001-02-151-0/+0
s='add' style='width: 33.3%;'/>
1 files changed, 3 insertions, 6 deletions
diff --git a/urpm/removable.pm b/urpm/removable.pm
index d8c981e6..582efd74 100644
--- a/urpm/removable.pm
+++ b/urpm/removable.pm
@@ -205,10 +205,10 @@ sub _examine_removable_medium_ {
#- side-effects:
#- + those of try_mounting ($urpm->{removable_mounted}, "mount")
-sub _try_mounting_non_removable {
- my ($urpm, $media) = @_;
+sub try_mounting_non_removable {
+ my ($urpm) = @_;
- foreach my $medium (grep { !$_->{removable} } @$media) {
+ foreach my $medium (grep { !$_->{removable} } @{$urpm->{media}}) {
my $dir = file_from_local_url($medium->{url}) or next;
-e $dir || try_mounting($urpm, $dir) or
@@ -264,15 +264,12 @@ sub _sort_media {
#- where there is one hash for each medium in {media}
#-
#- side-effects:
-#- + those of _try_mounting_non_removable ($urpm->{removable_mounted}, "mount")
#- + those of _examine_removable_medium ($urpm->{removable_mounted}, $sources, "mount", "umount", "eject", "copy-move-files")
sub copy_packages_of_removable_media {
my ($urpm, $list, $sources, $o_ask_for_medium) = @_;
my $blists = _create_blists($urpm->{media}, $list);
- _try_mounting_non_removable($urpm, $urpm->{media});
-
foreach my $l (_get_removables($blists)) {
#- Here we have only removable devices.