diff options
| -rw-r--r-- | perl-install/network/netconnect.pm | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm index 9117a04ce..264aa6925 100644 --- a/perl-install/network/netconnect.pm +++ b/perl-install/network/netconnect.pm @@ -199,6 +199,14 @@ sub real_main { return "network_on_boot"; }; + my $save_cnx = sub { + if (keys %$config) { + require Data::Dumper; + output("$::prefix/etc/sysconfig/drakconnect", Data::Dumper->Dump([ $config ], [ '$p' ])); + } + return $goto_start_on_boot_ifneeded->(); + }; + my $handle_multiple_cnx = sub { $need_restart_network = 1 if $netcnx->{type} =~ /adsl|cable|lan/; my $nb = keys %{$netc->{internet_cnx}}; @@ -206,6 +214,7 @@ sub real_main { return "multiple_internet_cnx"; } else { $netc->{internet_cnx_choice} = (keys %{$netc->{internet_cnx}})[0] if $nb == 1; + $save_cnx->(); return $goto_start_on_boot_ifneeded->() } }; @@ -1130,13 +1139,7 @@ N("Last but not least you can also type in your DNS server IP addresses."), [ { label => N("Internet connection"), val => \$netc->{internet_cnx_choice}, list => [ keys %{$netc->{internet_cnx}} ] } ]; }, - post => sub { - if (keys %$config) { - require Data::Dumper; - output("$::prefix/etc/sysconfig/drakconnect", Data::Dumper->Dump([ $config ], [ '$p' ])); - } - return $goto_start_on_boot_ifneeded->(); - }, + post => $save_cnx, }, apply_settings => |