I thought I already posted on this earlier today, but I can't find the post so I'll write it again.
I have the following code which uses Net::FTP:
my $ftp = Net::FTP->new($ftpServer, Debug => 0) or die "Cannot connect
+ to $ftpServer: $@";
$ftp->login($ftpUsername, $ftpPassword) or die 'Cannot login: ' .
+$ftp->message . "\n";
$ftp->cwd($webServerDir) or die "Cannot change working directory t
+o $webServerDir: " . $ftp->message . "\n";
$ftp->put($file) or die "Cannot copy file to server: " . $ftp->mes
+sage . "\n";
When I run it for a given file and server, I get the following response from the script:
Cannot copy file to server: Accepted data connection
I've checked manually, and as far as I can tell, the file uploaded to the FTP server successfully and completely. Also, this appears to indicate FTP status code 150, which isn't an error. However, all my research on the put method of Net::FTP indicates the "or die" syntax is the correct way to display errors that occur during upload. Is this a bug in Net::FTP, do I need to check the status code and special-case non-zero non-error status', or something else?