diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2008-02-27 18:54:54 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2008-02-27 18:54:54 +0000 |
commit | 2e9fe3bdbc0022b37346e83c0f7c75841ea54a7b (patch) | |
tree | b9fd64c2e28f70f3cde84bb8819509a65bf69fb2 /urpm/removable.pm | |
parent | dbc34f06828d0813e90e3987bb9938f6dea4853d (diff) | |
download | urpmi-2e9fe3bdbc0022b37346e83c0f7c75841ea54a7b.tar urpmi-2e9fe3bdbc0022b37346e83c0f7c75841ea54a7b.tar.gz urpmi-2e9fe3bdbc0022b37346e83c0f7c75841ea54a7b.tar.bz2 urpmi-2e9fe3bdbc0022b37346e83c0f7c75841ea54a7b.tar.xz urpmi-2e9fe3bdbc0022b37346e83c0f7c75841ea54a7b.zip |
strictify prototype
Diffstat (limited to 'urpm/removable.pm')
-rw-r--r-- | urpm/removable.pm | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/urpm/removable.pm b/urpm/removable.pm index be1c0c84..18ccb99d 100644 --- a/urpm/removable.pm +++ b/urpm/removable.pm @@ -172,21 +172,21 @@ sub _check_notfound { #- + those of _mount_and_check_notfound ($urpm->{removable_mounted}, "mount") #- + those of try_umounting ($urpm->{removable_mounted}, "umount") sub _mount_it { - my ($urpm, $blist, $o_ask_for_medium) = @_; + my ($urpm, $blist, $ask_for_medium) = @_; my $medium = $blist->{medium}; #- the directory given does not exist and may be accessible #- by mounting some other directory. Try to figure it out and mount #- everything that might be necessary. while (_mount_and_check_notfound($urpm, $blist, $medium)) { - $o_ask_for_medium + $ask_for_medium or $urpm->{fatal}(4, N("medium \"%s\" is not available", $medium->{name})); my $dir; # TODO try_umounting($urpm, $dir); system("/usr/bin/eject '$medium->{removable}' 2>/dev/null"); - $o_ask_for_medium->(remove_internal_name($medium->{name}), $medium->{removable}) + $ask_for_medium->(remove_internal_name($medium->{name}), $medium->{removable}) or $urpm->{fatal}(4, N("medium \"%s\" is not available", $medium->{name})); } } @@ -222,9 +222,9 @@ sub _do_the_copy { #- + those of _mount_it ($urpm->{removable_mounted}, "mount", "umount", "eject") #- + those of _do_the_copy: "copy-move-files" sub _copy_from_cdrom { - my ($urpm, $blist, $sources, $o_ask_for_medium) = @_; + my ($urpm, $blist, $sources, $ask_for_medium) = @_; - _mount_it($urpm, $blist, $o_ask_for_medium); + _mount_it($urpm, $blist, $ask_for_medium); while (my ($i, $url) = each %{$blist->{list}}) { my $filepath = _filepath($blist->{medium}, $url) or next; |