summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorThierry Vignaud <tvignaud@mandriva.org>2004-07-22 05:23:10 +0000
committerThierry Vignaud <tvignaud@mandriva.org>2004-07-22 05:23:10 +0000
commitce4d1deb8a4dc24fae97e92d2b767f07e5c091e8 (patch)
treecf5bf72f18517bcb8947adcb7338a542872287ec /perl-install
parent6bcbaf9871847262d3c1899a334e968e817ce5d0 (diff)
downloaddrakx-ce4d1deb8a4dc24fae97e92d2b767f07e5c091e8.tar
drakx-ce4d1deb8a4dc24fae97e92d2b767f07e5c091e8.tar.gz
drakx-ce4d1deb8a4dc24fae97e92d2b767f07e5c091e8.tar.bz2
drakx-ce4d1deb8a4dc24fae97e92d2b767f07e5c091e8.tar.xz
drakx-ce4d1deb8a4dc24fae97e92d2b767f07e5c091e8.zip
(read_tmdns_conf) reinsert parameter naming for parameter checking
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/network/network.pm3
1 files changed, 2 insertions, 1 deletions
diff --git a/perl-install/network/network.pm b/perl-install/network/network.pm
index b81604d12..c29a3a0fd 100644
--- a/perl-install/network/network.pm
+++ b/perl-install/network/network.pm
@@ -73,7 +73,8 @@ sub read_squid_conf {
}
sub read_tmdns_conf {
- { if_(cat_($_[0]) =~ /^\s*hostname\s*=\s*(\w+)/m, ZEROCONF_HOSTNAME => $1) };
+ my ($file) = @_;
+ { if_(cat_($file) =~ /^\s*hostname\s*=\s*(\w+)/m, ZEROCONF_HOSTNAME => $1) };
}
sub write_conf {