diff options
| author | Olivier Blin <oblin@mandriva.org> | 2004-08-24 03:17:54 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.org> | 2004-08-24 03:17:54 +0000 |
| commit | 30046d189f18177dbdd16be8e47c7c15d4d2c785 (patch) | |
| tree | f830587d830cf375f927b42460424836f4028fb7 /perl-install | |
| parent | d4235414f62923b8525ea0309aa5903cd8d43471 (diff) | |
| download | drakx-backup-do-not-use-30046d189f18177dbdd16be8e47c7c15d4d2c785.tar drakx-backup-do-not-use-30046d189f18177dbdd16be8e47c7c15d4d2c785.tar.gz drakx-backup-do-not-use-30046d189f18177dbdd16be8e47c7c15d4d2c785.tar.bz2 drakx-backup-do-not-use-30046d189f18177dbdd16be8e47c7c15d4d2c785.tar.xz drakx-backup-do-not-use-30046d189f18177dbdd16be8e47c7c15d4d2c785.zip | |
really parse modules file according to its type when reading it (always call $conf->read, split modules::any_conf::read in modules::any_conf::read_handled)
Diffstat (limited to 'perl-install')
| -rw-r--r-- | perl-install/modules/any_conf.pm | 28 | ||||
| -rw-r--r-- | perl-install/modules/modprobe_conf.pm | 2 | ||||
| -rw-r--r-- | perl-install/modules/modules_conf.pm | 2 |
3 files changed, 19 insertions, 13 deletions
diff --git a/perl-install/modules/any_conf.pm b/perl-install/modules/any_conf.pm index 0af11a461..28e22bf9b 100644 --- a/perl-install/modules/any_conf.pm +++ b/perl-install/modules/any_conf.pm @@ -125,17 +125,7 @@ sub read { my (undef, $o_file) = @_; my $conf = modules::any_conf::vnew(); - my $raw_conf = modules::any_conf::read_raw($o_file || $::prefix . $conf->file); - - foreach my $module (keys %$raw_conf) { - my $raw = $raw_conf->{$module}; - my $keep = $conf->{$module} = {}; - foreach ($conf->handled_fields) { - $keep->{$_} = $raw->{$_} if $raw->{$_}; - } - } - - $conf; + $conf->read($o_file); } sub write { @@ -178,6 +168,22 @@ sub write { ################################################################################ +sub read_handled { + my ($conf, $o_file) = @_; + my $file = $o_file || $::prefix . $conf->file; + my $raw_conf = modules::any_conf::read_raw($file); + + foreach my $module (keys %$raw_conf) { + my $raw = $raw_conf->{$module}; + my $keep = $conf->{$module} = {}; + foreach ($conf->handled_fields) { + $keep->{$_} = $raw->{$_} if $raw->{$_}; + } + } + + $conf; +} + sub read_raw { my ($file) = @_; my %c; diff --git a/perl-install/modules/modprobe_conf.pm b/perl-install/modules/modprobe_conf.pm index 2db68122d..2917e27be 100644 --- a/perl-install/modules/modprobe_conf.pm +++ b/perl-install/modules/modprobe_conf.pm @@ -54,7 +54,7 @@ sub read { $f; }; - my $conf = modules::any_conf::read($type, $file); + my $conf = modules::any_conf::read_handled($type, $file); extract_probeall_field($conf); diff --git a/perl-install/modules/modules_conf.pm b/perl-install/modules/modules_conf.pm index 476fd300f..ed310c2d4 100644 --- a/perl-install/modules/modules_conf.pm +++ b/perl-install/modules/modules_conf.pm @@ -36,7 +36,7 @@ sub set_above { sub read { my ($type, $o_file) = @_; - my $conf = modules::any_conf::read($type, $o_file); + my $conf = modules::any_conf::read_handled($type, $o_file); #- convert old aliases to new probeall foreach my $name ('scsi_hostadapter', 'usb-interface') { |