From 456e9f45a23678f2610a08f3b0e68dde159d956b Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 8 Jul 2004 02:29:22 +0000
Subject: cleanup

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

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

diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index 1d801ff3f..76f219eb7 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -183,6 +183,9 @@ sub set_options {
     log::l(qq(set option "$new_option" for module "$name"));
     $conf{$name}{options} = $new_option;
 }
+sub get_parameters {
+    map { if_(/(.*)=(.*)/, $1 => $2) } split(' ', get_options($_[0]));
+}
 sub set_alias { 
     my ($alias, $module) = @_;
     $module =~ /ignore/ and return;
@@ -423,6 +426,9 @@ sub when_load_category {
     }
 }
 
+#-###############################################################################
+#- isInstall functions
+#-###############################################################################
 sub cz_file() { 
     "/lib/modules" . (arch() eq 'sparc64' && "64") . ".cz-" . c::kernel_version();
 }
@@ -469,9 +475,4 @@ sub load_raw {
 
 }
 
-sub get_parameters {
-    map { if_(/(.*)=(.*)/, $1 => $2) } split(' ', get_options($_[0]));
-}
-
-
 1;
-- 
cgit v1.2.1