summaryrefslogtreecommitdiffstats
path: root/perl-install/any.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2008-08-29 12:22:53 +0000
committerPascal Rigaux <pixel@mandriva.com>2008-08-29 12:22:53 +0000
commit048efdcc659eafff2f6160a1dfa20c43a3abddc5 (patch)
tree919320580c2b0d6f80d547619325961c00bbc163 /perl-install/any.pm
parentf53f1603770f596bb86ed527cde25a305a28f090 (diff)
downloaddrakx-048efdcc659eafff2f6160a1dfa20c43a3abddc5.tar
drakx-048efdcc659eafff2f6160a1dfa20c43a3abddc5.tar.gz
drakx-048efdcc659eafff2f6160a1dfa20c43a3abddc5.tar.bz2
drakx-048efdcc659eafff2f6160a1dfa20c43a3abddc5.tar.xz
drakx-048efdcc659eafff2f6160a1dfa20c43a3abddc5.zip
- finish-install:
o use gurpmi.addmedia when available to configure urpmi media
Diffstat (limited to 'perl-install/any.pm')
-rw-r--r--perl-install/any.pm4
1 files changed, 3 insertions, 1 deletions
diff --git a/perl-install/any.pm b/perl-install/any.pm
index 1645ed201..123abbf3f 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -840,11 +840,13 @@ sub sessions_with_order() {
sub urpmi_add_all_media {
my ($in) = @_;
+ my $binary = find { whereis_binary($_, $::prefix) } 'gurpmi.addmedia', 'urpmi.addmedia' or return;
+
#- 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, $binary, '--distrib', '--mirrorlist', '$MIRRORLIST');
}
sub autologin {