From d4f29423dcd155b2dd7a653617ced40fba8e0579 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mageia.org>
Date: Wed, 23 May 2012 18:27:00 +0000
Subject: (process_auto_steps) split it out main()

---
 perl-install/install/install2.pm | 18 +++++++++++-------
 1 file changed, 11 insertions(+), 7 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/install/install2.pm b/perl-install/install/install2.pm
index 4b8226376..0be9e23ca 100644
--- a/perl-install/install/install2.pm
+++ b/perl-install/install/install2.pm
@@ -494,6 +494,16 @@ sub init_env_share() {
     }
 }
 
+sub process_auto_steps() {
+    foreach (@::auto_steps) {
+	if (my $s = $o->{steps}{/::(.*)/ ? $1 : $_}) {
+	    $s->{auto} = $s->{hidden} = 1;
+	} else {
+	    log::l("ERROR: unknown step $_ in auto_steps");
+	}
+    }
+}
+
 #-######################################################################################
 #- MAIN
 #-######################################################################################
@@ -634,13 +644,7 @@ sub main {
     log::l("META_CLASS=$o->{meta_class}");
     $ENV{META_CLASS} = $o->{meta_class}; #- for Ia Ora
 
-    foreach (@::auto_steps) {
-	if (my $s = $o->{steps}{/::(.*)/ ? $1 : $_}) {
-	    $s->{auto} = $s->{hidden} = 1;
-	} else {
-	    log::l("ERROR: unknown step $_ in auto_steps");
-	}
-    }
+    process_auto_steps();
 
     $ENV{COLUMNS} ||= 80;
     $ENV{LINES}   ||= 25;
-- 
cgit v1.2.1