summaryrefslogtreecommitdiffstats
path: root/urpm/removable.pm
diff options
context:
space:
mode:
Diffstat (limited to 'urpm/removable.pm')
-rw-r--r--urpm/removable.pm20
1 files changed, 17 insertions, 3 deletions
diff --git a/urpm/removable.pm b/urpm/removable.pm
index 80a2004c..e0a5543b 100644
--- a/urpm/removable.pm
+++ b/urpm/removable.pm
@@ -18,7 +18,7 @@ sub is_iso {
$removable_dev && $removable_dev =~ /\.iso$/i;
}
-#- side-effects: $urpm->{removable_mounted}, mount
+#- side-effects: $urpm->{removable_mounted}, "mount"
sub try_mounting {
my ($urpm, $dir, $o_removable) = @_;
@@ -45,7 +45,7 @@ sub try_mounting {
-e $dir;
}
-#- side-effects: $urpm->{removable_mounted}, umount
+#- side-effects: $urpm->{removable_mounted}, "umount"
sub try_umounting {
my ($urpm, $dir) = @_;
@@ -86,7 +86,7 @@ sub try_umounting_removables {
#- examine if given medium is already inside a removable device.
#-
#- side-effects:
-#- + those of try_mounting ($urpm->{removable_mounted}, mount)
+#- + those of try_mounting ($urpm->{removable_mounted}, "mount")
sub _check_notfound {
my ($urpm, $medium_list, $dir, $removable) = @_;
if ($dir) {
@@ -106,6 +106,9 @@ sub _check_notfound {
#- removable media have to be examined to keep mounted the one that has
#- more packages than others.
+#-
+#- side-effects:
+#- + those of _examine_removable_medium_ ($urpm->{removable_mounted}, $sources, "mount", "umount", "eject", "copy-move-files")
sub _examine_removable_medium {
my ($urpm, $blist, $sources, $o_ask_for_medium) = @_;
@@ -119,6 +122,9 @@ sub _examine_removable_medium {
}
}
+#- side-effects: "eject"
+#- + those of _check_notfound ($urpm->{removable_mounted}, "mount")
+#- + those of try_umounting ($urpm->{removable_mounted}, "umount")
sub _mount_it {
my ($urpm, $medium, $medium_list, $o_ask_for_medium) = @_;
@@ -143,6 +149,7 @@ sub _mount_it {
}
}
+#- side-effects: none
sub _filepath {
my ($url) = @_;
@@ -152,6 +159,7 @@ sub _filepath {
$filepath;
}
+#- side-effects: "copy-move-files"
sub _do_the_copy {
my ($urpm, $filepath) = @_;
@@ -168,6 +176,9 @@ sub _do_the_copy {
$f;
}
+#- side-effects: $sources
+#- + those of _mount_it ($urpm->{removable_mounted}, "mount", "umount", "eject")
+#- + those of _do_the_copy: "copy-move-files"
sub _examine_removable_medium_ {
my ($urpm, $medium, $medium_list, $sources, $o_ask_for_medium) = @_;
@@ -191,6 +202,8 @@ sub _examine_removable_medium_ {
}
}
+#- side-effects:
+#- + those of try_mounting ($urpm->{removable_mounted}, "mount")
sub _get_removables_or_check_mounted {
my ($urpm, $blists) = @_;
@@ -210,6 +223,7 @@ sub _get_removables_or_check_mounted {
values %removables;
}
+#- side-effects: none
sub _create_blists {
my ($media, $list) = @_;