From 922d0e1757d5aa07887f2a828a4cd7c5aa453fdc Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Wed, 4 Dec 2002 12:46:32 +0000
Subject: syntax changes to make perl_checker happy

---
 perl-install/network/modem.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/perl-install/network/modem.pm b/perl-install/network/modem.pm
index 9478acf9f..c8a9e4722 100644
--- a/perl-install/network/modem.pm
+++ b/perl-install/network/modem.pm
@@ -19,7 +19,7 @@ sub configure {
 #    $netcnx->{$netcnx->{type}} = {};
 #    $netcnx->{modem}{device} = $netc->{autodetect}{modem};
 #  modem_step_1:
-    $netcnx->{$netcnx->{type}}->{login} = ($netcnx->{$netcnx->{type}}->{auth} eq 'PAP' || $netcnx->{$netcnx->{type}}->{auth} eq 'CHAP') && $intf->{ppp0}{PAPNAME};
+    $netcnx->{$netcnx->{type}}{login} = ($netcnx->{$netcnx->{type}}{auth} eq 'PAP' || $netcnx->{$netcnx->{type}}{auth} eq 'CHAP') && $intf->{ppp0}{PAPNAME};
     pppConfig($netcnx->{$netcnx->{type}}, $mouse, $netc, $intf) or return;
     write_cnx_script($netc, "modem",
 q(
-- 
cgit v1.2.1