--- libwww-perl-6.03/lib/LWP/Protocol/ftp.pm-	2011-04-09 14:21:10.000000000 +0400

+++ libwww-perl-6.03/lib/LWP/Protocol/ftp.pm	2011-11-15 01:11:54.279774904 +0400

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

 @ISA = qw(LWP::Protocol);

 use strict;

-eval {

+{

     package LWP::Protocol::MyFTP;

     require Net::FTP;

@@ -69,8 +69,7 @@ eval {

 	return $self->go_home;

     }

-};

-my $init_failed = $@;

+}

 sub _connect {

@@ -150,11 +149,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;