diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2002-08-12 12:22:43 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2002-08-12 12:22:43 +0000 |
| commit | ffbb0deecf7d5693ad149da3097e8e07b45ca514 (patch) | |
| tree | 4bec46cf2ee2e82b72aea4518d1e76ad946e991a /perl-install/modules.pm | |
| parent | ed0afbf70683e3446712d9783924f97d2268232e (diff) | |
| download | drakx-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.pm | 10 |
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; |