From b1e2a5a48d21ae874b6236d102f674effed50557 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Wed, 23 Feb 2005 18:07:49 +0000
Subject: remove all non-digit characters in phone number (#10813)

---
 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 c60e1db77..b860b2693 100644
--- a/perl-install/network/modem.pm
+++ b/perl-install/network/modem.pm
@@ -81,7 +81,7 @@ sub ppp_configure {
     }
 
     my %toreplace = map { $_ => $modem->{$_} } qw(Authentication AutoName connection dns1 dns2 domain IPAddr login passwd phone SubnetMask);
-    $toreplace{phone} =~ s/[a-zA-Z]//g;
+    $toreplace{phone} =~ s/\D//g;
     if ($modem->{auto_dns} ne N("Automatic")) {
         $toreplace{dnsserver} = join ',', map { $modem->{$_} } "dns1", "dns2";
         $toreplace{dnsserver} .= $toreplace{dnsserver} && ',';
-- 
cgit v1.2.1