Subject: | Recursive Sends unlink via RemoveLocalFile even on error. |
Distribution Name: Net::FTP::Recursive-1.9
Environment: Linux 2.4.9-e.24smp
Perl Version: 5.6.1
I can't easily duplicate this bug, because it requires a 425 error be sent from the server on a recursive rput. I would think that a 425 Error would be interpreted as a failure and the original file would not be unlinked.
$ftp->rput( RemoveLocalFiles => 1);
From Log Dump:
Sending CPPS_U277_2004-10-05-00-03-19-740.
Net::FTP::Recursive=GLOB(0x8a481dc)>>> PASV^M
Net::FTP::Recursive=GLOB(0x8a481dc)<<< 227 Entering Passive Mode (64,14,94,46,15,164).
Net::FTP::Recursive=GLOB(0x8a481dc)>>> STOR CPPS_U277_2004-10-05-00-03-19-740^M
Net::FTP::Recursive=GLOB(0x8a481dc)<<< 150 Opening BINARY data connection for CPPS_U277_2004-10-05-00-03-19-740
Net::FTP::Recursive=GLOB(0x8a481dc)<<< 425 transfer canceled
Removing 'CPPS_U277_2004-10-05-00-03-19-740' from the local system.