diff options
| -rw-r--r-- | perl-install/standalone/net_applet | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/perl-install/standalone/net_applet b/perl-install/standalone/net_applet index bab516fa0..af24320e0 100644 --- a/perl-install/standalone/net_applet +++ b/perl-install/standalone/net_applet @@ -95,12 +95,12 @@ sub netMonitor() { system("/usr/sbin/net_monitor --testing"); checkNetwork() } -sub checkNetwork { +sub checkNetwork() { my $gatewayconf = '/etc/sysconfig/network'; my %h = getVarsFromSh($gatewayconf); my $new_md5 = md5file($prog_name); # print "NEW($newmd5) = OLD($oldmd5)\n" - my $gd, $addrgd; + my ($gd, $addrgd); if ($h{GATEWAYDEV}) { $addrgd = getIP($gd = $h{GATEWAYDEV}); } else { @@ -124,7 +124,7 @@ sub getIP { my @ip = map { if_(/inet adr:([\d.]+)/, $1) } @lines; return wantarray() ? @ip : $ip[0]; } -sub cronNetwork { +sub cronNetwork() { $_timeout = Glib::Timeout->add(60*1000, sub { checkNetwork(); 1; |