From 73c851144720e28b21a491b6250385170db9d752 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 24 Apr 2003 19:00:12 +0000
Subject: perl_checker adaptations + fixes

---
 perl-install/modules.pm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

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

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();
 }
 
-- 
cgit v1.2.1