From 73e9459062f85bca8adef6976df8d4a6f2dbbbe0 Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Mon, 1 Sep 2008 16:13:40 +0000 Subject: - keep in $o->{previous_release} the info about upgraded /etc/release, and pass "reason" and version to urpmi.addmedia - we also parse {version} field out of /etc/release --- perl-install/install/steps_interactive.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'perl-install/install/steps_interactive.pm') diff --git a/perl-install/install/steps_interactive.pm b/perl-install/install/steps_interactive.pm index 231c3960a..84fc58889 100644 --- a/perl-install/install/steps_interactive.pm +++ b/perl-install/install/steps_interactive.pm @@ -171,6 +171,7 @@ sub selectInstallClass { hidden => 1, val => \$_->{encrypt_key} } ]); } + $o->{previous_release} = $p; $o->{isUpgrade} = (find { $p->{release_file} =~ /$_/ } 'mandriva', 'mandrake', 'conectiva', 'redhat') || 'unknown'; $o->{upgrade_by_removing_pkgs_matching} ||= { conectiva => 'cl', @@ -761,7 +762,7 @@ Do you want to install the updates?")), #- bring all interface up for installing updates packages. install::interactive::upNetwork($o); - if (any::urpmi_add_all_media($o)) { + if (any::urpmi_add_all_media($o, $o->{previous_release})) { my $binary = find { whereis_binary($_, $::prefix) } 'gurpmi2', 'urpmi' or return; run_program::rooted($::prefix, $binary, '--auto-select', '--update'); } -- cgit v1.2.1