From 7a08dbc23f114bf6b6eae275e21e63b6667a1b37 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 25 Nov 1999 02:21:17 +0000
Subject: no_comment

---
 perl-install/ftp.pm | 8 ++------
 1 file changed, 2 insertions(+), 6 deletions(-)

(limited to 'perl-install/ftp.pm')

diff --git a/perl-install/ftp.pm b/perl-install/ftp.pm
index 6e1002840..6c498f2af 100644
--- a/perl-install/ftp.pm
+++ b/perl-install/ftp.pm
@@ -3,6 +3,7 @@ package ftp;
 use Net::FTP;
 
 use install_any;
+use network;
 use log;
 
 # non-rentrant!!
@@ -34,12 +35,7 @@ sub new {
 	$ENV{PASSWORD} = 'mdkinst@test';
     }
 
-    my $host = $ENV{HOST};
-    if ($host !~ /^[.\d]+$/) {
-	$host = join ".", unpack "C4", (gethostbyname $host)[4];
-    }
-
-    my $ftp = Net::FTP->new($host, %options) or die '';
+    my $ftp = Net::FTP->new(network::resolv($ENV{HOST}), %options) or die '';
     $ftp->login($ENV{LOGIN}, $ENV{PASSWORD}) or die '';
     $ftp->binary;
 
-- 
cgit v1.2.1