From 7e8fa9773839843c9d8def81ec2ef1315115825a Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 21 Jul 2004 00:16:04 +0000
Subject: - %modules::conf is no more a global, so many functions need passing
 $modules_conf - $modules_conf is a class choosing modules.conf or
 modprobe.conf   (esp. useful after install) (but not working yet!) -
 modules::load() doesn't use $modules_conf, use modules::load_and_configure()
 - modules::load() doesn't allow options, use either modules::load_raw() or
 modules::load_and_configure() - some functions used to want an array ref for
 modules options and some a string, now every functions use a string - many
 functions (like modules::get_alias()) are now methods on $modules_conf - some
 functions in mouse.pm needed a $in where a $do_pkgs is enough - some
 perl_checker compliance - small fixes

---
 perl-install/modules/modules_conf.pm | 40 ++++++++++++++++++++++++++++++++++++
 1 file changed, 40 insertions(+)
 create mode 100644 perl-install/modules/modules_conf.pm

(limited to 'perl-install/modules/modules_conf.pm')

diff --git a/perl-install/modules/modules_conf.pm b/perl-install/modules/modules_conf.pm
new file mode 100644
index 000000000..2a720fc70
--- /dev/null
+++ b/perl-install/modules/modules_conf.pm
@@ -0,0 +1,40 @@
+package modules::modules_conf;
+
+use log;
+use common;
+
+our @ISA = qw(modules::any_conf);
+
+sub get_above {
+    my ($conf, $name) = @_;
+    $conf->{$name} && $conf->{$name}{above};
+}
+sub set_above {
+    my ($conf, $name, $modules) = @_;
+    $conf->{$name}{above} = $modules;
+}
+sub remove_above {
+    my ($conf, $name) = @_;
+    delete $conf->{$name}{above};
+}
+
+sub get_probeall {
+    my ($conf, $alias) = @_;
+    $conf->{$alias}{probeall};
+}
+sub add_probeall {
+    my ($conf, $alias, $module) = @_;
+
+    my $l = $conf->{$alias}{probeall} ||= [];
+    @$l = uniq(@$l, $module);
+    log::l("setting probeall $alias to @$l");
+}
+sub remove_probeall {
+    my ($conf, $alias, $module) = @_;
+
+    my $l = $conf->{$alias}{probeall} ||= [];
+    @$l = grep { $_ ne $module } @$l;
+    log::l("setting probeall $alias to @$l");
+}
+
+1;
-- 
cgit v1.2.1