summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--perl-install/network/modem.pm5
1 files changed, 4 insertions, 1 deletions
diff --git a/perl-install/network/modem.pm b/perl-install/network/modem.pm
index 91e047066..0ce904902 100644
--- a/perl-install/network/modem.pm
+++ b/perl-install/network/modem.pm
@@ -17,7 +17,10 @@ sub first_modem {
sub ppp_read_conf {
my ($netcnx, $netc) = @_;
my $modem = $netcnx->{$netcnx->{type}} ||= {};
- $modem->{device} ||= first_modem($netc)->{device};
+ if (my $detected_modem = first_modem($netc)) {
+ $modem->{device} ||= $detected_modem->{device};
+ }
+ $modem->{device} ||= '/dev/modem';
my %l = getVarsFromSh("$::prefix/usr/share/config/kppprc");
$l{Authentication} = 4 if !exists $l{Authentication};
$modem->{$_} ||= $l{$_} foreach qw(Authentication Gateway IPAddr SubnetMask);