From 1239c06abd8de836ac10df70bbbd7222da8d63bd Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 29 Apr 2003 10:39:19 +0000 Subject: (get_parameters) perl-ize --- perl-install/modules.pm | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) (limited to 'perl-install') 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])); } -- cgit v1.2.1