summaryrefslogtreecommitdiffstats
path: root/perl-install/network/modem.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-01-20 11:59:35 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-01-20 11:59:35 +0000
commit038e2b5d78e9acf85b9fcbb9691681fb7e0f1d86 (patch)
treec7d42a5c18a55b0fcfd6ac6016f7661ebcec85e5 /perl-install/network/modem.pm
parentee305b0b80b30463b80a00144c972adba9ed576d (diff)
downloaddrakx-038e2b5d78e9acf85b9fcbb9691681fb7e0f1d86.tar
drakx-038e2b5d78e9acf85b9fcbb9691681fb7e0f1d86.tar.gz
drakx-038e2b5d78e9acf85b9fcbb9691681fb7e0f1d86.tar.bz2
drakx-038e2b5d78e9acf85b9fcbb9691681fb7e0f1d86.tar.xz
drakx-038e2b5d78e9acf85b9fcbb9691681fb7e0f1d86.zip
simpkify %toreplace build
Diffstat (limited to 'perl-install/network/modem.pm')
-rw-r--r--perl-install/network/modem.pm3
1 files changed, 1 insertions, 2 deletions
diff --git a/perl-install/network/modem.pm b/perl-install/network/modem.pm
index 54e07e98d..4c2b240e2 100644
--- a/perl-install/network/modem.pm
+++ b/perl-install/network/modem.pm
@@ -18,8 +18,7 @@ sub ppp_configure {
any::devfssymlinkf($modem, 'modem') if $modem->{device} ne "/dev/modem";
- my %toreplace;
- $toreplace{$_} = $modem->{$_} foreach qw(connection phone login passwd auth domain dns1 dns2);
+ my %toreplace = map { $_ => $modem->{$_} } qw(connection phone login passwd auth domain dns1 dns2);
$toreplace{kpppauth} = ${{ 'Script-based' => 0, 'PAP' => 1, 'Terminal-based' => 2, }}{$modem->{auth}};
$toreplace{kpppauth} = ${{ 'Script-based' => 0, 'PAP' => 1, 'Terminal-based' => 2, 'CHAP' => 3 }}{$modem->{auth}};
$toreplace{phone} =~ s/[a-zA-Z]//g;