From 538cdf4ac8ff71998e87735d1ea338721dfa1f1a Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Wed, 23 May 2012 18:26:31 +0000
Subject: better flow

---
 perl-install/install/install2.pm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'perl-install/install')

diff --git a/perl-install/install/install2.pm b/perl-install/install/install2.pm
index 6f552dc2e..affc65620 100644
--- a/perl-install/install/install2.pm
+++ b/perl-install/install/install2.pm
@@ -434,9 +434,11 @@ sub main {
     eval { fs::mount::mount('none', '/sys', 'sysfs', 1) };
     eval { touch('/root/non-chrooted-marker.DrakX') }; #- helps distinguishing /root and /mnt/root when we don't know if we are chrooted
 
-    start_udev() if !$::local_install;
-
-    init_local_install($o) if $::local_install;
+    if ($::local_install) {
+        init_local_install($o);
+    } else {
+        start_udev();
+    }
 
     $o->{prefix} = $::prefix = $::testing ? "/tmp/test-perl-install" : "/mnt";
     mkdir $::prefix, 0755;
-- 
cgit v1.2.1