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