ALT Linux repos
S: | 6.72-alt1 |
5.0: | 5.826-alt1 |
4.1: | 5.812-alt1 |
4.0: | 5.805-alt3 |
3.0: | 5.803-alt3 |
+backports: | 5.803-alt0.M30.3 |
Group :: Development/Perl
RPM: perl-libwww
Main Changelog Spec Patches Sources Download Gear Bugs and FR Repocop
Patch: libwww-perl-6.03-alt-ftp-req.patch
Download
Download
--- 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;