From 31c7da700fed24426b7f58ab197a07b5987eea6c Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tvignaud@mandriva.org>
Date: Thu, 29 Jan 2004 17:32:31 +0000
Subject: help cperl-mode parsing this file (drawback: perl_checker won't be
 happy)

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

diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index e8015d0b2..3e6ea445f 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -471,7 +471,7 @@ killall pppd
                             /.*ATDT(\d*)/ and $modem->{phone} ||= $1;
                         }
                         foreach (cat_("/etc/sysconfig/network-scripts/ifcfg-ppp0")) {
-                            /NAME=(['"]?)(.*)\1/ and $modem->{login} ||= $2;
+                            /NAME=([\'\"]?)(.*)\1/ and $modem->{login} ||= $2;
                         }
                         $modem->{login} ||= $l{Username};
                         my $secret = network::tools::read_secret_backend();
-- 
cgit v1.2.1