summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-05-23 18:27:05 +0000
committerThierry Vignaud <tv@mageia.org>2012-05-23 18:27:05 +0000
commit53108a4944e455be900e17b29a055c478f761e66 (patch)
treebdb033bbc6372252fa38588dd6b43ec4bfc3ae81 /perl-install
parent3a8cb984c2bbf56c37a0b48c3d370e9488763123 (diff)
downloaddrakx-53108a4944e455be900e17b29a055c478f761e66.tar
drakx-53108a4944e455be900e17b29a055c478f761e66.tar.gz
drakx-53108a4944e455be900e17b29a055c478f761e66.tar.bz2
drakx-53108a4944e455be900e17b29a055c478f761e66.tar.xz
drakx-53108a4944e455be900e17b29a055c478f761e66.zip
simplify flow
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install/install2.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/install/install2.pm b/perl-install/install/install2.pm
index c4a2c112e..75a2ebda6 100644
--- a/perl-install/install/install2.pm
+++ b/perl-install/install/install2.pm
@@ -591,8 +591,9 @@ sub main {
$_->{device} =~ s!^/dev/!!;
}
}
+ } else {
+ $o->{interactive} ||= 'gtk';
}
- $o->{interactive} ||= 'gtk' if !$::auto_install;
if ($o->{interactive} eq "gtk" && availableMemory() < 22 * 1024) {
log::l("switching to curses install cuz not enough memory");