summaryrefslogtreecommitdiffstats
path: root/perl-install/any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2008-08-28 15:50:11 +0000
committerPascal Rigaux <pixel@mandriva.com>2008-08-28 15:50:11 +0000
commit8957c99c34027237f2a0eb4ba564dc093148f50a (patch)
tree7543dc627d6b005d8629d446b925cba15ed546d8 /perl-install/any.pm
parent4c17ae5cc3872a6638b4e22d1bf0f12f50972547 (diff)
downloaddrakx-8957c99c34027237f2a0eb4ba564dc093148f50a.tar
drakx-8957c99c34027237f2a0eb4ba564dc093148f50a.tar.gz
drakx-8957c99c34027237f2a0eb4ba564dc093148f50a.tar.bz2
drakx-8957c99c34027237f2a0eb4ba564dc093148f50a.tar.xz
drakx-8957c99c34027237f2a0eb4ba564dc093148f50a.zip
add optional paramater to urpmi_add_all_media() to allow to add only update media
Diffstat (limited to 'perl-install/any.pm')
-rw-r--r--perl-install/any.pm6
1 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index 1645ed201..0fde2512c 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -838,13 +838,15 @@ sub sessions_with_order() {
}
sub urpmi_add_all_media {
- my ($in) = @_;
+ my ($in, $b_update) = @_;
#- configure urpmi media if network is up
require network::tools;
return if !network::tools::has_network_connection();
my $_wait = $in->wait_message(N("Please wait"), N("Please wait, adding media..."));
- run_program::rooted($::prefix, 'urpmi.addmedia', '--distrib', '--mirrorlist', '$MIRRORLIST');
+ run_program::rooted($::prefix, 'urpmi.addmedia',
+ if_($b_update, '--update'),
+ '--distrib', '--mirrorlist', '$MIRRORLIST');
}
sub autologin {