summaryrefslogtreecommitdiffstats
path: root/perl-install/modules.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2003-04-24 19:00:12 +0000
committerPascal Rigaux <pixel@mandriva.com>2003-04-24 19:00:12 +0000
commit73c851144720e28b21a491b6250385170db9d752 (patch)
treedcc9fae4302b3d083ad7cc7a808e5d17f970bb8c /perl-install/modules.pm
parent0dc3338257439d2265c1eb13c3a66c9431c88cb5 (diff)
downloaddrakx-73c851144720e28b21a491b6250385170db9d752.tar
drakx-73c851144720e28b21a491b6250385170db9d752.tar.gz
drakx-73c851144720e28b21a491b6250385170db9d752.tar.bz2
drakx-73c851144720e28b21a491b6250385170db9d752.tar.xz
drakx-73c851144720e28b21a491b6250385170db9d752.zip
perl_checker adaptations + fixes
Diffstat (limited to 'perl-install/modules.pm')
-rw-r--r--perl-install/modules.pm10
1 files changed, 5 insertions, 5 deletions
diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index b5b784537..b458f706a 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -11,7 +11,7 @@ use list_modules;
%conf = ();
-sub modules_descriptions {
+sub modules_descriptions() {
my $f = '/lib/modules/' . c::kernel_version() . '/modules.description';
-e $f or $f = '/lib/modules.description';
map { /(\S+)\s+(.*)/ } cat_($f);
@@ -130,7 +130,7 @@ sub probe_category {
} detect_devices::probeall($b_probe_type);
}
-sub load_ide {
+sub load_ide() {
eval { load("ide-cd") }
}
@@ -347,10 +347,10 @@ sub write_pcmcia {
#-###############################################################################
#- internal functions
#-###############################################################################
-sub loaded_modules {
+sub loaded_modules() {
map { /(\S+)/ } cat_("/proc/modules");
}
-sub read_already_loaded {
+sub read_already_loaded() {
when_load($_) foreach reverse loaded_modules();
}
@@ -372,7 +372,7 @@ sub when_load {
}
}
-sub cz_file {
+sub cz_file() {
"/lib/modules" . (arch() eq 'sparc64' && "64") . ".cz-" . c::kernel_version();
}