summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/netconnect.pm11
1 files changed, 5 insertions, 6 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index 72098b3fb..044357413 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -177,15 +177,14 @@ ifdown eth0
if (keys %{$netc->{internet_cnx}} > 1) {
$in->ask_from_entries_refH(_("Network Configuration Wizard"),
- _("You have configured multiple ways to connect to the Internet.\nChoose the one you want to use.\n\n" . if_(!$::isStandalone, "You may want to configure some profiles after the installation, in the Mandrake Control Center")),
- [
- { label => _("Internet connection"), val => [$netc->{internet_cnx_choice}], list => [ keys %{$netc->{internet_cnx}}]},
- ]
- ) or goto step_2;
+ _("You have configured multiple ways to connect to the Internet.\nChoose the one you want to use.\n\n" . if_(!$::isStandalone, "You may want to configure some profiles after the installation, in the Mandrake Control Center")),
+ [
+ { label => _("Internet connection"), val => \$netc->{internet_cnx_choice}, list => [ keys %{$netc->{internet_cnx}} ]}
+ ]
+ ) or goto step_2;
} elsif (keys %{$netc->{internet_cnx}} == 1) {
$netc->{internet_cnx_choice} = $netc->{internet_cnx}[1];
}
- print " - --------- -- - -------\n" . $netc->{internet_cnx_choice} . "------------\n";
$netc->{internet_cnx_choice} and write_cnx_script($netc);
step_3: