--- 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;