| 123456789101112131415161718 |
- --- libwww-perl-5.71/lib/LWP/Protocol/ftp.pm.orig Fri Oct 26 22:13:20 2001
- +++ libwww-perl-5.71/lib/LWP/Protocol/ftp.pm Mon May 26 11:09:01 2003
- @@ -334,7 +334,13 @@
- " " . $ftp->message);
- }
- }
- - } elsif (!length($remote_file) || $ftp->code == 550) {
- + } elsif (!length($remote_file) || ( $ftp->code >= 400 && $ftp->code < 600 )) {
- + # be open minded and treat 4xx and 5xx treated equally - the next cwd will fail anyway if we were too broadminded
- + # see ftp://ftp.rfc-editor.org/in-notes/std/std9.txt
- + # chapter "4.2. FTP REPLIES" and chapter "6. STATE DIAGRAMS", RETR
- + # 4yz Transient Negative Completion reply, 450 Requested file action not taken. File unavailable (e.g., file busy).
- + # 5yz Permanent Negative Completion reply, 550 Requested action not taken. File unavailable (e.g., file not found, no access).
- + # the risk applying this patch is the incompatiblity that we now return the status of the CWD and not the RETR
- # 550 not a plain file, try to list instead
- if (length($remote_file) && !$ftp->cwd($remote_file)) {
- LWP::Debug::debug("chdir before listing failed");
|
