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 | d4f29423dcd155b2dd7a653617ced40fba8e0579 (patch) | |
| tree | e52a31f352b7ca1f743a94747579ffe1b0f29d2e /perl-install/install/install2.pm | |
| parent | 7068585f191d3f0d6d342e0a97667640541b22f8 (diff) | |
| download | drakx-backup-do-not-use-d4f29423dcd155b2dd7a653617ced40fba8e0579.tar drakx-backup-do-not-use-d4f29423dcd155b2dd7a653617ced40fba8e0579.tar.gz drakx-backup-do-not-use-d4f29423dcd155b2dd7a653617ced40fba8e0579.tar.bz2 drakx-backup-do-not-use-d4f29423dcd155b2dd7a653617ced40fba8e0579.tar.xz drakx-backup-do-not-use-d4f29423dcd155b2dd7a653617ced40fba8e0579.zip | |
(process_auto_steps) split it out main()
Diffstat (limited to 'perl-install/install/install2.pm')
| -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; |