From 0f22d28a5c7cc3f56c252555fe04863f487bf3e8 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Mon, 6 Sep 2004 11:45:07 +0000
Subject: (ppp_read_conf) override Authentication if it does not contain a
 digit character, the empty string exists ...

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

(limited to 'perl-install/network')

diff --git a/perl-install/network/modem.pm b/perl-install/network/modem.pm
index b9a6603ff..08a4c3d6a 100644
--- a/perl-install/network/modem.pm
+++ b/perl-install/network/modem.pm
@@ -32,7 +32,7 @@ sub ppp_read_conf {
     $modem->{device} ||= '/dev/modem';
     my %l = getVarsFromSh(get_user_home() . "/.kde/share/config/kppprc");
     add2hash(\%l, getVarsFromSh("$::prefix/usr/share/config/kppprc"));
-    $l{Authentication} = 4 if !exists $l{Authentication};
+    $l{Authentication} = 4 if $l{Authentication} !~ /\d/;
     $modem->{$_} ||= $l{$_} foreach qw(Authentication Gateway IPAddr SubnetMask);
     $modem->{connection} ||= $l{Name};
     $modem->{domain} ||= $l{Domain};
-- 
cgit v1.2.1