summaryrefslogtreecommitdiffstats
path: root/perl-install/network
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-02-23 18:07:49 +0000
committerOlivier Blin <oblin@mandriva.org>2005-02-23 18:07:49 +0000
commitb1e2a5a48d21ae874b6236d102f674effed50557 (patch)
treed3e989737f2be21201dad6f72934a4eb8524f794 /perl-install/network
parent28d9d821b0e942ed62bd92dfe1872b37d2cae2ef (diff)
downloaddrakx-backup-do-not-use-b1e2a5a48d21ae874b6236d102f674effed50557.tar
drakx-backup-do-not-use-b1e2a5a48d21ae874b6236d102f674effed50557.tar.gz
drakx-backup-do-not-use-b1e2a5a48d21ae874b6236d102f674effed50557.tar.bz2
drakx-backup-do-not-use-b1e2a5a48d21ae874b6236d102f674effed50557.tar.xz
drakx-backup-do-not-use-b1e2a5a48d21ae874b6236d102f674effed50557.zip
remove all non-digit characters in phone number (#10813)
Diffstat (limited to 'perl-install/network')
-rw-r--r--perl-install/network/modem.pm2
1 files changed, 1 insertions, 1 deletions
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} && ',';