From a8bfa611db05cc1f63b8e3b2cd1b7fe906ddeb86 Mon Sep 17 00:00:00 2001 From: Olivier Blin Date: Tue, 5 Jul 2005 06:51:24 +0000 Subject: perl_checker fix --- perl-install/standalone/drakhosts | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'perl-install/standalone/drakhosts') diff --git a/perl-install/standalone/drakhosts b/perl-install/standalone/drakhosts index 2cf717cca..55736f173 100644 --- a/perl-install/standalone/drakhosts +++ b/perl-install/standalone/drakhosts @@ -58,7 +58,7 @@ sub get_host_data { # 127.0.0.1 localhost.localdomain localhost # 10.0.1.253 guibpiv.guibland.com foreach (cat_($HOSTS)) { - my ($ip, $name, $alias) = $_ =~ /^(\d\S*)\s+(\S*)\s+(.*)$/; + my ($ip, $name, $alias) = /^(\d\S*)\s+(\S*)\s+(.*)$/; $ip and push @listhosts, { ip => $ip, hostname => $name, -- cgit v1.2.1