From 41cf104f9a79bd8ba1ca9ee98aa8473db30f078b Mon Sep 17 00:00:00 2001 From: Pascal Rigaux Date: Thu, 22 Jul 2004 06:30:58 +0000 Subject: perl_checker compliance --- perl-install/network/network.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install') diff --git a/perl-install/network/network.pm b/perl-install/network/network.pm index 2d66495ae..bd40ffbcd 100644 --- a/perl-install/network/network.pm +++ b/perl-install/network/network.pm @@ -73,7 +73,7 @@ sub read_squid_conf { } sub read_tmdns_conf() { - my ($file) = "$::prefix/etc/tmdns.conf"; + my $file = "$::prefix/etc/tmdns.conf"; cat_($file) =~ /^\s*hostname\s*=\s*(\w+)/m && { ZEROCONF_HOSTNAME => $1 }; } -- cgit v1.2.1