From ffbb0deecf7d5693ad149da3097e8e07b45ca514 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Mon, 12 Aug 2002 12:22:43 +0000
Subject: - modules::get_parameters : consolidate some code - harddrake::ui :
 uses it

---
 perl-install/harddrake/ui.pm | Bin 9428 -> 9335 bytes
 perl-install/modules.pm      |  10 +++++++++-
 2 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/perl-install/harddrake/ui.pm b/perl-install/harddrake/ui.pm
index f8dbcc7aa..ce1485602 100644
Binary files a/perl-install/harddrake/ui.pm and b/perl-install/harddrake/ui.pm differ
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;
-- 
cgit v1.2.1