diff options
| -rw-r--r-- | perl-install/network/netconnect.pm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index 23bc560b9..add23dbf3 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -482,8 +482,13 @@ Take a look at http://www.linmodems.org"), list => [ keys %{$net->{autodetect}{modem}}, N("Manual choice") ], } ]; }, complete => sub { - my $driver = $net->{autodetect}{modem}{$modem_name}{driver} or return 0; - !network::thirdparty::setup_device($in, 'rtc', $driver, $modem, qw(device)); + my $driver = $net->{autodetect}{modem}{$modem_name}{driver} or return 0; + #- some modem configuration programs modify modprobe.conf while we're loaded + #- so write it now and reload then + $modules_conf->write; + my $ret = network::thirdparty::setup_device($in, 'rtc', $driver, $modem, qw(device)); + $modules_conf->read if $ret; + !$ret; }, post => sub { return 'choose_serial_port' if $modem_name eq N("Manual choice"); |