diff options
| -rw-r--r-- | perl-install/harddrake/ui.pm | bin | 9428 -> 9335 bytes | |||
| -rw-r--r-- | perl-install/modules.pm | 10 |
2 files changed, 9 insertions, 1 deletions
diff --git a/perl-install/harddrake/ui.pm b/perl-install/harddrake/ui.pm Binary files differindex f8dbcc7aa..ce1485602 100644 --- a/perl-install/harddrake/ui.pm +++ b/perl-install/harddrake/ui.pm 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; |