diff options
| author | Thierry Vignaud <tv@mageia.org> | 2012-05-23 18:27:13 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tv@mageia.org> | 2012-05-23 18:27:13 +0000 |
| commit | efa410738a3518faadb8a59467d1dfc42ae42ae0 (patch) | |
| tree | f1dc11d1496797581ba8771f6cd6131d12b0e46f /perl-install/install/install2.pm | |
| parent | 81f539976d18ddbbedd2478d305e109a8aea7213 (diff) | |
| download | drakx-backup-do-not-use-efa410738a3518faadb8a59467d1dfc42ae42ae0.tar drakx-backup-do-not-use-efa410738a3518faadb8a59467d1dfc42ae42ae0.tar.gz drakx-backup-do-not-use-efa410738a3518faadb8a59467d1dfc42ae42ae0.tar.bz2 drakx-backup-do-not-use-efa410738a3518faadb8a59467d1dfc42ae42ae0.tar.xz drakx-backup-do-not-use-efa410738a3518faadb8a59467d1dfc42ae42ae0.zip | |
(process_patch) split it out of main()
Diffstat (limited to 'perl-install/install/install2.pm')
| -rw-r--r-- | perl-install/install/install2.pm | 15 |
1 files changed, 10 insertions, 5 deletions
diff --git a/perl-install/install/install2.pm b/perl-install/install/install2.pm index c3fb2fe03..566a3ddc7 100644 --- a/perl-install/install/install2.pm +++ b/perl-install/install/install2.pm @@ -545,6 +545,15 @@ sub process_auto_steps() { } } +sub process_patch { + my ($cfg, $patch) = @_; + #- oem patch should be read before to still allow patch or defcfg. + eval { $o = $::o = install::any::loadO($o, "install/patch-oem.pl"); log::l("successfully read oem patch") }; + #- patch should be read after defcfg in order to take precedance. + eval { $o = $::o = install::any::loadO($o, $cfg); log::l("successfully read default configuration: $cfg") } if $cfg; + eval { $o = $::o = install::any::loadO($o, "patch"); log::l("successfully read patch") } if $patch; +} + #-###################################################################################### #- MAIN #-###################################################################################### @@ -619,11 +628,7 @@ sub main { #- needed before accessing floppy (in case of usb floppy) modules::load_category($o->{modules_conf}, 'bus/usb'); - #- oem patch should be read before to still allow patch or defcfg. - eval { $o = $::o = install::any::loadO($o, "install/patch-oem.pl"); log::l("successfully read oem patch") }; - #- patch should be read after defcfg in order to take precedance. - eval { $o = $::o = install::any::loadO($o, $cfg); log::l("successfully read default configuration: $cfg") } if $cfg; - eval { $o = $::o = install::any::loadO($o, "patch"); log::l("successfully read patch") } if $patch; + process_patch($cfg, $patch); eval { modules::load("af_packet") }; |