diff options
| -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 { |