diff options
| -rw-r--r-- | perl-install/install/install2.pm | 18 |
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; |