diff options
author | Thierry Vignaud <tvignaud@mandriva.org> | 2004-07-22 05:23:10 +0000 |
---|---|---|
committer | Thierry Vignaud <tvignaud@mandriva.org> | 2004-07-22 05:23:10 +0000 |
commit | ce4d1deb8a4dc24fae97e92d2b767f07e5c091e8 (patch) | |
tree | cf5bf72f18517bcb8947adcb7338a542872287ec | |
parent | 6bcbaf9871847262d3c1899a334e968e817ce5d0 (diff) | |
download | drakx-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
-rw-r--r-- | perl-install/network/network.pm | 3 |
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 { |