summaryrefslogtreecommitdiffstats
path: root/perl-install/network/netconnect.pm
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install/network/netconnect.pm')
-rw-r--r--perl-install/network/netconnect.pm16
1 files changed, 8 insertions, 8 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index 1fb568773..550d8f622 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -307,7 +307,7 @@ sub real_main {
({ label => N("Account Login (user name)"), val => \$isdn->{login} },
{ label => N("Account Password"), val => \$isdn->{passwd}, hidden => 1 },
)
- ],
+ ];
},
post => sub {
network::isdn::write_config($isdn);
@@ -508,7 +508,7 @@ Take a look at http://www.linmodems.org"),
name => N("Select the modem to configure:"),
data => sub {
[ { label => N("Modem"), type => "list", val => \$modem_name, allow_empty_list => 1,
- list => [ keys %{$netc->{autodetect}{modem}}, N("Manual choice") ], } ],
+ list => [ keys %{$netc->{autodetect}{modem}}, N("Manual choice") ], } ];
},
post => sub {
$modem ||= $netcnx->{modem} ||= {};
@@ -561,7 +561,7 @@ Take a look at http://www.linmodems.org"),
interactive_help_id => 'selectSerialPort',
data => sub {
[ { val => \$modem->{device}, format => \&mouse::serial_port2text, type => "list",
- list => [ grep { $_ ne $o_mouse->{device} } (mouse::serial_ports(), grep { -e $_ } '/dev/modem', '/dev/ttySL0', '/dev/ttyS14',) ] } ],
+ list => [ grep { $_ ne $o_mouse->{device} } (mouse::serial_ports(), grep { -e $_ } '/dev/modem', '/dev/ttySL0', '/dev/ttyS14',) ] } ];
},
post => sub {
$ntf_name = $modem->{device};
@@ -625,7 +625,7 @@ Take a look at http://www.linmodems.org"),
{ label => N("Password"), val => \$modem->{passwd}, hidden => 1 },
{ label => N("Authentication"), val => \$modem->{Authentication},
list => [ sort keys %ppp_auth_methods ], format => sub { $ppp_auth_methods{$_[0]} } },
- ],
+ ];
},
next => "ppp_ip",
},
@@ -884,7 +884,7 @@ If you do not know, choose 'use PPPoE'"),
format => sub { $encapsulations{$_[0]} }, advanced => 1,
},
),
- ],
+ ];
},
post => sub {
$netc->{internet_cnx_choice} = 'adsl';
@@ -1015,7 +1015,7 @@ notation (for example, 1.2.3.4).")),
{ label => N("DHCP client"), val => \$netc->{dhcp_client},
list => [ qw(dhcp-client dhcpcd pump dhcpxd) ], advanced => 1 },
),
- ],
+ ];
},
complete => sub {
$ethntf->{BOOTPROTO} = $auto_ip ? "dhcp" : "static";
@@ -1068,7 +1068,7 @@ notation (for example, 1.2.3.4).")),
{ label => N("Sensitivity threshold"), val => \$ethntf->{WIRELESS_SENS}, advanced => 1 },
{ label => N("Bitrate (in b/s)"), val => \$ethntf->{WIRELESS_RATE}, advanced => 1 },
{ label => N("Encryption key"), val => \$ethntf->{WIRELESS_ENC_KEY} },
- ],
+ ];
},
complete => sub {
if ($ethntf->{WIRELESS_FREQ} && $ethntf->{WIRELESS_FREQ} !~ /[0-9.]*[kGM]/) {
@@ -1209,7 +1209,7 @@ N("Last but not least you can also type in your DNS server IP addresses."),
format => sub { $all_eth_intf{$_[0]} } },
),
),
- ],
+ ];
},
complete => sub {
foreach my $dns (qw(dnsServer dnsServer2 dnsServer3)) {