|
|
@@ -1,17 +0,0 @@
|
|
|
---- lib/LWP/Protocol/ftp.pm.orig Fri Oct 26 22:13:20 2001
|
|
|
-+++ 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");
|