| parent | (bug 14395)
0 files changed, 0 insertions, 0 deletions
my ($conf, $module) = @_;
$module = $conf->mapping($module);
$conf->{$module} && $conf->{$module}{above};
}
sub set_above {
my ($conf, $module, $o_modules) = @_;
$module = $conf->mapping($module);
if ($o_modules) {
my $modules = join(' ', $conf->mapping(split(' ', $o_modules)));
$conf->{$module}{above} = $modules;
} else {
delete $conf->{$module}{above};
}
}
sub read {
my ($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') {
my @old_aliases =
map { $_->[0] } sort { $a->[1] <=> $b->[1] }
map { if_(/^$name(\d*)/ && $conf->{$_}{alias}, [ $_, $1 || 0 ]) } keys %$conf;
foreach my $alias (@old_aliases) {
$conf->add_probeall($name, delete $conf->{$alias}{alias});
}
}
$conf;
}
sub write {
my ($conf, $o_file) = @_;
my $file = $o_file || do {
my $f = $::prefix . file();
rename "$::prefix/etc/conf.modules", $f; #- make the switch to new name if needed
$f;
};
modules::any_conf::write($conf, $file);
if ($::isInstall) {
require modules::modprobe_conf;
modules::modprobe_conf::create_from_old();
}
}
1;
|
|---|
