diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-05-23 18:27:00 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-05-23 18:27:00 +0000 |
| commit | 04531bce1fbd0921f958bd89f2d9d2a30f79b33a (patch) | |
| tree | e52a31f352b7ca1f743a94747579ffe1b0f29d2e /perl-install | |
| parent | 0ebb0ac94bf1f8049fb8369f1b831b8a1552c856 (diff) | |
| download | drakx-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.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; |