summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tv@mageia.org>2012-05-23 18:27:00 +0000
committerThierry Vignaud <tv@mageia.org>2012-05-23 18:27:00 +0000
commit04531bce1fbd0921f958bd89f2d9d2a30f79b33a (patch)
treee52a31f352b7ca1f743a94747579ffe1b0f29d2e /perl-install
parent0ebb0ac94bf1f8049fb8369f1b831b8a1552c856 (diff)
downloaddrakx-04531bce1fbd0921f958bd89f2d9d2a30f79b33a.tar
drakx-04531bce1fbd0921f958bd89f2d9d2a30f79b33a.tar.gz
drakx-04531bce1fbd0921f958bd89f2d9d2a30f79b33a.tar.bz2
drakx-04531bce1fbd0921f958bd89f2d9d2a30f79b33a.tar.xz
drakx-04531bce1fbd0921f958bd89f2d9d2a30f79b33a.zip
(process_auto_steps) split it out main()
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/install/install2.pm18
1 files changed, 11 insertions, 7 deletions
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;