diff options
| author | Olivier Blin <oblin@mandriva.org> | 2005-02-23 18:07:49 +0000 |
|---|---|---|
| committer | Olivier Blin <oblin@mandriva.org> | 2005-02-23 18:07:49 +0000 |
| commit | b1e2a5a48d21ae874b6236d102f674effed50557 (patch) | |
| tree | d3e989737f2be21201dad6f72934a4eb8524f794 /perl-install/network/modem.pm | |
| parent | 28d9d821b0e942ed62bd92dfe1872b37d2cae2ef (diff) | |
| download | drakx-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/modem.pm')
| -rw-r--r-- | perl-install/network/modem.pm | 2 |
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} && ','; |