From ce4d1deb8a4dc24fae97e92d2b767f07e5c091e8 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 22 Jul 2004 05:23:10 +0000 Subject: (read_tmdns_conf) reinsert parameter naming for parameter checking --- perl-install/network/network.pm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'perl-install/network') 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 { -- cgit v1.2.1