From cf098756533ce789f72a6e2239ece1c262a9ee0f Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 23 Feb 2004 08:25:33 +0000 Subject: misc perl_checker cleanups --- perl-install/network/modem.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'perl-install/network/modem.pm') diff --git a/perl-install/network/modem.pm b/perl-install/network/modem.pm index 9b970e4d6..2fd484cc3 100644 --- a/perl-install/network/modem.pm +++ b/perl-install/network/modem.pm @@ -49,7 +49,7 @@ sub ppp_configure { my ($in, $modem) = @_; $modem or return; $in->do_pkgs->install('ppp') if !$::testing; - $in->do_pkgs->install('kdenetwork-kppp') if !$::testing &&$in->do_pkgs->is_installed('kdebase'); + $in->do_pkgs->install('kdenetwork-kppp') if !$::testing && $in->do_pkgs->is_installed('kdebase'); any::devfssymlinkf($modem, 'modem') if $modem->{device} ne "/dev/modem"; @@ -70,9 +70,9 @@ sub ppp_configure { # handle static/dynamic settings: if ($modem->{auto_ip} eq N("Automatic")) { - $toreplace{$_} = '0.0.0.0' foreach qw(IPAddr SubnetMask) ; + $toreplace{$_} = '0.0.0.0' foreach qw(IPAddr SubnetMask); } else { - $toreplace{$_} = $modem->{$_} foreach qw(IPAddr SubnetMask) ; + $toreplace{$_} = $modem->{$_} foreach qw(IPAddr SubnetMask); } $toreplace{Gateway} = $modem->{auto_gateway} eq N("Automatic") ? '0.0.0.0' : $modem->{Gateway}; -- cgit v1.2.1