From b7661719bc1f1ebd078c7e7adb2eb25c83526c27 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 13 Nov 2002 14:25:59 +0000
Subject: add/remove spaces to make perl_checker happy

---
 perl-install/network/modem.pm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

(limited to 'perl-install/network/modem.pm')

diff --git a/perl-install/network/modem.pm b/perl-install/network/modem.pm
index 1003cc637..a6eabf170 100644
--- a/perl-install/network/modem.pm
+++ b/perl-install/network/modem.pm
@@ -14,9 +14,9 @@ use MDK::Common::Globals "network", qw($in $prefix);
 
 sub configure {
     my ($netcnx, $mouse, $netc) = @_;
-    $netcnx->{type}='modem';
-    $netcnx->{$netcnx->{type}}={};
-    $netcnx->{modem}{device}=$netc->{autodetect}{modem};
+    $netcnx->{type} = 'modem';
+    $netcnx->{$netcnx->{type}} = {};
+    $netcnx->{modem}{device} = $netc->{autodetect}{modem};
   modem_step_1:
     pppConfig($netcnx->{$netcnx->{type}}, $mouse, $netc) or return;
     write_cnx_script($netc, "modem",
@@ -33,7 +33,7 @@ killall pppd
 sub pppConfig {
     my ($modem, $mouse, $netc) = @_;
 
-    $mouse ||={};
+    $mouse ||= {};
     $mouse->{device} ||= readlink "$prefix/dev/mouse";
     $::isInstall and $in->set_help('selectSerialPort');
     $modem->{device} ||= $in->ask_from_listf('', N("Please choose which serial port your modem is connected to."),
@@ -53,7 +53,7 @@ sub pppConfig {
     ]) or return;
     $netc->{DOMAINNAME2} = $modem->{domain};
     any::pppConfig($in, $modem, $prefix);
-    $netc->{$_}='ppp0' foreach 'NET_DEVICE', 'NET_INTERFACE';
+    $netc->{$_} = 'ppp0' foreach 'NET_DEVICE', 'NET_INTERFACE';
     1;
 }
 
-- 
cgit v1.2.1