summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2003-04-29 10:39:19 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2003-04-29 10:39:19 +0000
commit1239c06abd8de836ac10df70bbbd7222da8d63bd (patch)
treebb79e8d119b55e6a1e50376d5d97ac9c0d56a1a5 /perl-install
parentb0fad864db6bd45ed032418b6756a4149e621398 (diff)
downloaddrakx-1239c06abd8de836ac10df70bbbd7222da8d63bd.tar
drakx-1239c06abd8de836ac10df70bbbd7222da8d63bd.tar.gz
drakx-1239c06abd8de836ac10df70bbbd7222da8d63bd.tar.bz2
drakx-1239c06abd8de836ac10df70bbbd7222da8d63bd.tar.xz
drakx-1239c06abd8de836ac10df70bbbd7222da8d63bd.zip
(get_parameters) perl-ize
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/modules.pm7
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]));
}