summaryrefslogtreecommitdiffstats
path: root/perl-install/modules.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2002-08-12 12:22:43 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2002-08-12 12:22:43 +0000
commitffbb0deecf7d5693ad149da3097e8e07b45ca514 (patch)
tree4bec46cf2ee2e82b72aea4518d1e76ad946e991a /perl-install/modules.pm
parented0afbf70683e3446712d9783924f97d2268232e (diff)
downloaddrakx-ffbb0deecf7d5693ad149da3097e8e07b45ca514.tar
drakx-ffbb0deecf7d5693ad149da3097e8e07b45ca514.tar.gz
drakx-ffbb0deecf7d5693ad149da3097e8e07b45ca514.tar.bz2
drakx-ffbb0deecf7d5693ad149da3097e8e07b45ca514.tar.xz
drakx-ffbb0deecf7d5693ad149da3097e8e07b45ca514.zip
- modules::get_parameters : consolidate some code
- harddrake::ui : uses it
Diffstat (limited to 'perl-install/modules.pm')
-rw-r--r--perl-install/modules.pm10
1 files changed, 9 insertions, 1 deletions
diff --git a/perl-install/modules.pm b/perl-install/modules.pm
index 5ca25a855..e143ee5e1 100644
--- a/perl-install/modules.pm
+++ b/perl-install/modules.pm
@@ -8,7 +8,7 @@ use run_program;
use log;
use list_modules;
-our %conf;
+my %conf;
sub category2modules_and_description {
my ($categories) = @_;
@@ -390,6 +390,14 @@ sub load_raw {
}
}
+sub get_parameters {
+ my %conf;
+ foreach (split(' ', get_options($_[0]))) {
+ /(.*)=(.*)/;
+ $conf{$1} = $2;
+ };
+ %conf;
+}
1;