From 3b4006b06c2cbbe24082ead5cdcae4f232c210fd Mon Sep 17 00:00:00 2001 From: Pascal Terjan Date: Tue, 31 Mar 2009 09:07:55 +0000 Subject: Don't list installed distros with other archs as ugrading betweenarchs is not supported --- perl-install/install/steps_interactive.pm | 12 +++--------- 1 file changed, 3 insertions(+), 9 deletions(-) (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 ad2f90a19..fff933b8d 100644 --- a/perl-install/install/steps_interactive.pm +++ b/perl-install/install/steps_interactive.pm @@ -126,6 +126,9 @@ sub selectInstallClass { my ($o) = @_; if (my @l = install::any::find_root_parts($o->{fstab}, $::prefix)) { + # Don't list other archs as ugrading between archs is not supported + @l = grep { $_->{arch} eq arch() } @l; + log::l("proposing to upgrade partitions " . join(" ", map { $_->{part} && $_->{part}{device} } @l)); my @releases = uniq(map { $_->{release} } @l); @@ -147,15 +150,6 @@ sub selectInstallClass { format => sub { ref($_[0]) ? N("Upgrade %s", $_[0]{release}) : translate($_[0]) } } ]); if (ref $p) { - if (arch() =~ /x86_64/ && $p->{arch} eq 'i586') { - $o->ask_warn('', N("Upgrade from a 32bit to a 64bit distribution is not supported")); - goto askInstallClass; - } - if (arch() =~ /i.86/ && $p->{arch} eq 'x86_64') { - $o->ask_warn('', N("Upgrade from a 64bit to a 32bit distribution is not supported")); - goto askInstallClass; - } - _check_unsafe_upgrade_and_warn($o, $p->{part}) or $p = undef; } -- cgit v1.2.1