summaryrefslogtreecommitdiffstats
path: root/perl-install/ftp.pm
diff options
context:
space:
mode:
authorPascal Rigaux <pixel@mandriva.com>1999-11-25 02:21:17 +0000
committerPascal Rigaux <pixel@mandriva.com>1999-11-25 02:21:17 +0000
commit7a08dbc23f114bf6b6eae275e21e63b6667a1b37 (patch)
treec99d2cf8a7c5e28215d574b7164de0a387004016 /perl-install/ftp.pm
parent949ab0f0941e3266d8ab79380399dfe6a0020aea (diff)
downloaddrakx-7a08dbc23f114bf6b6eae275e21e63b6667a1b37.tar
drakx-7a08dbc23f114bf6b6eae275e21e63b6667a1b37.tar.gz
drakx-7a08dbc23f114bf6b6eae275e21e63b6667a1b37.tar.bz2
drakx-7a08dbc23f114bf6b6eae275e21e63b6667a1b37.tar.xz
drakx-7a08dbc23f114bf6b6eae275e21e63b6667a1b37.zip
no_comment
Diffstat (limited to 'perl-install/ftp.pm')
-rw-r--r--perl-install/ftp.pm8
1 files changed, 2 insertions, 6 deletions
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;