From 31c7da700fed24426b7f58ab197a07b5987eea6c Mon Sep 17 00:00:00 2001 From: Thierry Vignaud 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