--- libwww-perl-5.803/lib/LWP/Protocol/ftp.pm-	2003-10-23 19:11:32 +0000

+++ libwww-perl-5.803/lib/LWP/Protocol/ftp.pm	2005-06-22 14:24:21 +0000

@@ -18,7 +18,7 @@ require LWP::Protocol;

 @ISA = qw(LWP::Protocol);

 use strict;

-eval {

+{

     package LWP::Protocol::MyFTP;

     require Net::FTP;

@@ -75,9 +75,7 @@ eval {

 	my $self = shift;

 	return $self->go_home;

     }

-

-};

-my $init_failed = $@;

+}

 sub _connect {

@@ -163,11 +161,6 @@ sub request

 				   "$method for 'ftp:' URLs");

     }

-    if ($init_failed) {

-	return HTTP::Response->new(&HTTP::Status::RC_INTERNAL_SERVER_ERROR,

-				   $init_failed);

-    }

-

     my $host     = $url->host;

     my $port     = $url->port;

     my $user     = $url->user;