summaryrefslogtreecommitdiffstats
path: root/perl-install/network/netconnect.pm
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-01-30 11:01:41 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-01-30 11:01:41 +0000
commitaaf13635db4c3e42fc67e00016f703aeabefefd3 (patch)
tree5194ede0d8a015ab0e885b1aefbed3257ef6b749 /perl-install/network/netconnect.pm
parentdece0ccf6800877a82c0149d92a76ad6bdf52247 (diff)
downloaddrakx-aaf13635db4c3e42fc67e00016f703aeabefefd3.tar
drakx-aaf13635db4c3e42fc67e00016f703aeabefefd3.tar.gz
drakx-aaf13635db4c3e42fc67e00016f703aeabefefd3.tar.bz2
drakx-aaf13635db4c3e42fc67e00016f703aeabefefd3.tar.xz
drakx-aaf13635db4c3e42fc67e00016f703aeabefefd3.zip
perl_checker cleanups
Diffstat (limited to 'perl-install/network/netconnect.pm')
-rw-r--r--perl-install/network/netconnect.pm12
1 files changed, 6 insertions, 6 deletions
diff --git a/perl-install/network/netconnect.pm b/perl-install/network/netconnect.pm
index 99693cb4b..eebd1b4b2 100644
--- a/perl-install/network/netconnect.pm
+++ b/perl-install/network/netconnect.pm
@@ -186,9 +186,9 @@ sub get_subwizard {
{
pre => sub {
# keep b/c of translations in case they can be reused somewhere else:
- N("(detected on port %s)"),
+ my @_a = (N("(detected on port %s)", 'toto'),
#-PO: here, "(detected)" string will be appended to eg "ADSL connection"
- N("(detected %s)"), N("(detected)");
+ N("(detected %s)", 'toto'), N("(detected)"));
my @connections =
([ N("Modem connection"), "modem" ],
[ N("ISDN connection"), "isdn" ],
@@ -628,7 +628,7 @@ or skip and do it later."),
-e "$destination/alcaudsl.sys" and rename "$destination/alcaudsl.sys", "$destination/mgmt.o";
# kept translations b/c we may want to reuse it later:
- N("Firmware copy succeeded");
+ my $_msg = N("Firmware copy succeeded");
return $adsl_failed ? 'adsl_copy_firmware_failled' : 'adsl_provider';
},
},
@@ -749,10 +749,10 @@ Modifying the fields below will override this configuration."),
{
pre => sub {
$find_lan_module->();
- $auto_ip = $l10n_lan_protocols{defined $auto_ip ? ($auto_ip ? 'dhcp' : 'static') :$ethntf->{BOOTPROTO}} || 0;
+ $auto_ip = $l10n_lan_protocols{defined $auto_ip ? ($auto_ip ? 'dhcp' : 'static') : $ethntf->{BOOTPROTO}} || 0;
},
name => sub {
- N("Zeroconf hostname resolution");
+ my $_msg = N("Zeroconf hostname resolution");
N("Configuring network device %s (driver %s)", $ethntf->{DEVICE}, $module) . "\n\n" .
N("The following protocols can be used to configure an ethernet connection. Please choose the one you want to use")
},
@@ -802,7 +802,7 @@ notation (for example, 1.2.3.4).")),
{ text => N("Network Hotplugging"), val => \$hotplug, type => "bool" },
{ text => N("Start at boot"), val => \$onboot, type => "bool" },
{ label => N("DHCP client"), val => \$netc->{dhcp_client},
- list => ["dhcp-client", "dhcpcd", "dhcpxd"], advanced => 1 },
+ list => [ "dhcp-client", "dhcpcd", "dhcpxd" ], advanced => 1 },
],
},
complete => sub {