summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>2004-07-08 02:29:22 +0000
committerPascal Rigaux <pixel@mandriva.com>2004-07-08 02:29:22 +0000
commit456e9f45a23678f2610a08f3b0e68dde159d956b (patch)
tree3470eb570420e388152a60ccc876140516f9ae0f
parentd7caf9ba8bac3b97005a2d3c64d37dc575a654f8 (diff)
downloaddrakx-456e9f45a23678f2610a08f3b0e68dde159d956b.tar
drakx-456e9f45a23678f2610a08f3b0e68dde159d956b.tar.gz
drakx-456e9f45a23678f2610a08f3b0e68dde159d956b.tar.bz2
drakx-456e9f45a23678f2610a08f3b0e68dde159d956b.tar.xz
drakx-456e9f45a23678f2610a08f3b0e68dde159d956b.zip
cleanup
-rw-r--r--perl-install/modules.pm11
1 files changed, 6 insertions, 5 deletions
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;