summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
authorOlivier Blin <oblin@mandriva.org>2005-07-05 06:51:24 +0000
committerOlivier Blin <oblin@mandriva.org>2005-07-05 06:51:24 +0000
commita8bfa611db05cc1f63b8e3b2cd1b7fe906ddeb86 (patch)
treec4ebe71408a94dbfb9b107368c1f9db0f474cf20 /perl-install
parentb550f48fe108f6b80669d52c2d494dc40c065cb6 (diff)
downloaddrakx-a8bfa611db05cc1f63b8e3b2cd1b7fe906ddeb86.tar
drakx-a8bfa611db05cc1f63b8e3b2cd1b7fe906ddeb86.tar.gz
drakx-a8bfa611db05cc1f63b8e3b2cd1b7fe906ddeb86.tar.bz2
drakx-a8bfa611db05cc1f63b8e3b2cd1b7fe906ddeb86.tar.xz
drakx-a8bfa611db05cc1f63b8e3b2cd1b7fe906ddeb86.zip
perl_checker fix
Diffstat (limited to 'perl-install')
-rw-r--r--perl-install/standalone/drakhosts2
1 files changed, 1 insertions, 1 deletions
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,