diff options
author | Antoine Ginies <aginies@mandriva.com> | 2005-08-24 12:55:00 +0000 |
---|---|---|
committer | Antoine Ginies <aginies@mandriva.com> | 2005-08-24 12:55:00 +0000 |
commit | e9d505c1f30932cdcb3685244e1ead2aca7e4d60 (patch) | |
tree | e6952ce9d86b6884dc1c77b080a91d706136a07a | |
parent | e0145dcf4b4da48d5b698554b51095734945b4f8 (diff) | |
download | drakwizard-e9d505c1f30932cdcb3685244e1ead2aca7e4d60.tar drakwizard-e9d505c1f30932cdcb3685244e1ead2aca7e4d60.tar.gz drakwizard-e9d505c1f30932cdcb3685244e1ead2aca7e4d60.tar.bz2 drakwizard-e9d505c1f30932cdcb3685244e1ead2aca7e4d60.tar.xz drakwizard-e9d505c1f30932cdcb3685244e1ead2aca7e4d60.zip |
perl_checker fix
-rw-r--r-- | common/IFCFG.pm | 6 |
1 files 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; |