From e9d505c1f30932cdcb3685244e1ead2aca7e4d60 Mon Sep 17 00:00:00 2001
From: Antoine Ginies <aginies@mandriva.com>
Date: Wed, 24 Aug 2005 12:55:00 +0000
Subject: perl_checker fix

---
 common/IFCFG.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/common/IFCFG.pm b/common/IFCFG.pm
index 11fb071f..38eed528 100644
--- a/common/IFCFG.pm
+++ b/common/IFCFG.pm
@@ -47,7 +47,7 @@ sub new {
     %{$self->{network}} = getVarsFromSh("/etc/sysconfig/network");
     my $r = network::network::read_resolv_conf();
     foreach my $k (keys %$r) {
-         $self->{network}{$k} ||= $r->{$k}
+      $self->{network}{$k} ||= $r->{$k};
     } 
     $self->{network}{HOSTNAME} ||= `/bin/hostname` and chomp $self->{network}{HOSTNAME};
     ($self->{network}{DOMAINNAME}) = $self->{network}{HOSTNAME} =~ /\.(.*)/;
@@ -72,14 +72,14 @@ sub itf_get {
 
     $itf ||= default_itf();
     exists $self->{itf}{$itf}{$key} or print "ERROR: no $key field in $itf hash\n";
-    $self->{itf}{$itf}{$key}
+    $self->{itf}{$itf}{$key};
 }
 
 sub network_get {
     my ($self, $key) = @_;
 
     exists $self->{network}{$key} or print "ERROR: no $key field in network hash\n";
-    $self->{network}{$key}
+    $self->{network}{$key};
 }
 
 10;
-- 
cgit v1.2.1