diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2003-04-29 10:39:19 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2003-04-29 10:39:19 +0000 |
| commit | 1239c06abd8de836ac10df70bbbd7222da8d63bd (patch) | |
| tree | bb79e8d119b55e6a1e50376d5d97ac9c0d56a1a5 | |
| parent | b0fad864db6bd45ed032418b6756a4149e621398 (diff) | |
| download | drakx-1239c06abd8de836ac10df70bbbd7222da8d63bd.tar drakx-1239c06abd8de836ac10df70bbbd7222da8d63bd.tar.gz drakx-1239c06abd8de836ac10df70bbbd7222da8d63bd.tar.bz2 drakx-1239c06abd8de836ac10df70bbbd7222da8d63bd.tar.xz drakx-1239c06abd8de836ac10df70bbbd7222da8d63bd.zip | |
(get_parameters) perl-ize
| -rw-r--r-- | perl-install/modules.pm | 7 |
1 files changed, 1 insertions, 6 deletions
diff --git a/perl-install/modules.pm b/perl-install/modules.pm index b458f706a..9ccd94fb1 100644 --- a/perl-install/modules.pm +++ b/perl-install/modules.pm @@ -421,12 +421,7 @@ sub load_raw { } sub get_parameters { - my %conf; - foreach (split(' ', get_options($_[0]))) { - /(.*)=(.*)/; - $conf{$1} = $2; - }; - %conf; + map { if_(/(.*)=(.*)/, $1 => $2) } split(' ', get_options($_[0])); } |