diff options
author | Pascal Rigaux <pixel@mandriva.com> | 2003-04-24 19:00:12 +0000 |
---|---|---|
committer | Pascal Rigaux <pixel@mandriva.com> | 2003-04-24 19:00:12 +0000 |
commit | 73c851144720e28b21a491b6250385170db9d752 (patch) | |
tree | dcc9fae4302b3d083ad7cc7a808e5d17f970bb8c /perl-install/modules.pm | |
parent | 0dc3338257439d2265c1eb13c3a66c9431c88cb5 (diff) | |
download | drakx-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.pm | 10 |
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(); } |