From f185b230b15be415cb54308cf8af79d04aec9b72 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Mon, 23 Feb 2004 17:05:34 +0000 Subject: misc perl_checker cleanups --- perl-install/standalone/drakconnect | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'perl-install/standalone/drakconnect') 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")); -- cgit v1.2.1