From 44bb1a7dd54a363571176e985b18b3bd01dbdeaa Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Mon, 12 Jul 2004 07:57:25 +0000
Subject: perl_checker fixes

---
 perl-install/standalone/net_applet | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'perl-install')

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;
-- 
cgit v1.2.1