summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
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;