summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-02-23 17:05:34 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-02-23 17:05:34 +0000
commitf185b230b15be415cb54308cf8af79d04aec9b72 (patch)
tree8a1012a97187efbf7dfe9956bd6301b32e75c9ca /perl-install
parent2ce99930b4472ae3b4495a6bff97fbaf8bf7af8a (diff)
downloaddrakx-f185b230b15be415cb54308cf8af79d04aec9b72.tar
drakx-f185b230b15be415cb54308cf8af79d04aec9b72.tar.gz
drakx-f185b230b15be415cb54308cf8af79d04aec9b72.tar.bz2
drakx-f185b230b15be415cb54308cf8af79d04aec9b72.tar.xz
drakx-f185b230b15be415cb54308cf8af79d04aec9b72.zip
misc perl_checker cleanups
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakconnect4
1 files changed, 2 insertions, 2 deletions
diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect
index b80aac49d..f933927db 100755
--- a/perl-install/standalone/drakconnect
+++ b/perl-install/standalone/drakconnect
@@ -342,7 +342,7 @@ sub build_notebook {
my $proto = $gui->{intf}{BOOTPROTO};
$proto->{protocols} = { static => N("static"), dhcp => N_("DHCP") };
$proto->set_popdown_strings(values %{$proto->{protocols}});
- $proto->set_text($proto->{protocols}->{$intf->{BOOTPROTO}});
+ $proto->set_text($proto->{protocols}{$intf->{BOOTPROTO}});
} else {
$_->set_sensitive(0) foreach $gui->{intf}{IPADDR}, $gui->{intf}{NETMASK};
delete $gui->{intf}{BOOTPROTO};
@@ -683,7 +683,7 @@ sub apply {
sub ethisup { `LC_ALL=C LANGUAGE=C /sbin/ifconfig $_[0]` =~ /inet/ }
sub chk_internet() { `LC_ALL=C LANGUAGE=C /sbin/chkconfig --list | grep internet` =~ /:on/ ? 1 : 0 };
-sub adsl_atboot() { (any { /x--boot_time/ } cat_($network::tools::connect_file)) ? 0 : 1};
+sub adsl_atboot() { (any { /x--boot_time/ } cat_($network::tools::connect_file)) ? 0 : 1 };
sub update_intbutt() {
$int_state->set($isconnected ? N("Connected") : N("Not connected"));