From ac018681b878b4c324adc77e65adeaaa1edbfa0e Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Tue, 3 Nov 2009 14:47:39 +0000 Subject: do not offer to upgrade/install in restore mode --- perl-install/install/steps_interactive.pm | 2 ++ 1 file changed, 2 insertions(+) (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 b296702f4..a3336d930 100644 --- a/perl-install/install/steps_interactive.pm +++ b/perl-install/install/steps_interactive.pm @@ -125,6 +125,8 @@ sub selectKeyboard { sub selectInstallClass { my ($o) = @_; + return if $::isRestore; + my @l = install::any::find_root_parts($o->{fstab}, $::prefix); # Don't list other archs as ugrading between archs is not supported my $arch = arch() =~ /i.86/ ? $MDK::Common::System::compat_arch{arch()} : arch(); -- cgit v1.2.1