From af403ee1a8c3e7a1c0f38273255e5c14dec0d1f5 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Tue, 23 Mar 2004 17:38:01 +0000 Subject: fix drakconnect config writing when there's only one configured interface (eg: at install time) (#8998) --- perl-install/network/netconnect.pm | 17 ++++++++++------- 1 file 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 => -- cgit v1.2.1