summaryrefslogtreecommitdiffstats
path: root/perl-install/http.pm
diff options
context:
space:
mode:
authorFrancois Pons <fpons@mandriva.com>2001-02-07 10:45:52 +0000
committerFrancois Pons <fpons@mandriva.com>2001-02-07 10:45:52 +0000
commitf178a0b654b57e5eb443cee76cd3170bfef0bc4a (patch)
tree1944cce64b66995308b00fc7510fac62b6198e4e /perl-install/http.pm
parentd8ec21bed269b44c6ec416ebbbe2f43464d48d50 (diff)
downloaddrakx-f178a0b654b57e5eb443cee76cd3170bfef0bc4a.tar
drakx-f178a0b654b57e5eb443cee76cd3170bfef0bc4a.tar.gz
drakx-f178a0b654b57e5eb443cee76cd3170bfef0bc4a.tar.bz2
drakx-f178a0b654b57e5eb443cee76cd3170bfef0bc4a.tar.xz
drakx-f178a0b654b57e5eb443cee76cd3170bfef0bc4a.zip
now fully fixed ftp connection (and http too) caused by forked DrakX
with latent ftp connection.
Diffstat (limited to 'perl-install/http.pm')
-rw-r--r--perl-install/http.pm1
1 files changed, 1 insertions, 0 deletions
diff --git a/perl-install/http.pm b/perl-install/http.pm
index eb8ca0a09..5c8408478 100644
--- a/perl-install/http.pm
+++ b/perl-install/http.pm
@@ -16,6 +16,7 @@ sub getFile {
$path .= "/$_[0]";
$sock->close if $sock;
+ $_[0] eq 'XXX' and return; #- force closing connection.
$sock = IO::Socket::INET->new(PeerAddr => $host,
PeerPort => $port || 80,
Proto => 'tcp',