From 53108a4944e455be900e17b29a055c478f761e66 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Wed, 23 May 2012 18:27:05 +0000
Subject: simplify flow

---
 perl-install/install/install2.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'perl-install/install')

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");
-- 
cgit v1.2.1