summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorAntoine Ginies <aginies@mandriva.com>2005-08-24 12:55:00 +0000
committerAntoine Ginies <aginies@mandriva.com>2005-08-24 12:55:00 +0000
commite9d505c1f30932cdcb3685244e1ead2aca7e4d60 (patch)
treee6952ce9d86b6884dc1c77b080a91d706136a07a
parente0145dcf4b4da48d5b698554b51095734945b4f8 (diff)
downloaddrakwizard-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.pm6
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;