summaryrefslogtreecommitdiffstats
path: root/perl-install/network/netconnect.pm
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-07-30 16:54:37 +0000
committerdamien <damien@mandriva.com>2001-07-30 16:54:37 +0000
commitf8ab79fd6e8e4bd9f3c86942e14fb77464f35096 (patch)
tree5e68458be7d7263e024183ff578be6caacc9365f /perl-install/network/netconnect.pm
parentdc0edc4cf99b00d943e2c601306682141afff174 (diff)
downloaddrakx-backup-do-not-use-f8ab79fd6e8e4bd9f3c86942e14fb77464f35096.tar
drakx-backup-do-not-use-f8ab79fd6e8e4bd9f3c86942e14fb77464f35096.tar.gz
drakx-backup-do-not-use-f8ab79fd6e8e4bd9f3c86942e14fb77464f35096.tar.bz2
drakx-backup-do-not-use-f8ab79fd6e8e4bd9f3c86942e14fb77464f35096.tar.xz
drakx-backup-do-not-use-f8ab79fd6e8e4bd9f3c86942e14fb77464f35096.zip
debug
Diffstat (limited to 'perl-install/network/netconnect.pm')
-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: