Net::FTP and corrupted uploads has a patch

There is a known bug with recent Net::FTP - for which a patch exists.

I'd patched my old office machine about 24 months back. But now I've got a new machine with the same problem (on ActiveState) and I can't find the bl**dy webpage that described the problems and fix (it's about a two line patch)

Sorry I can't be more useful at this point but if I find it I'll post here.

Update

See also Net::FTP to Mainframe Z/OS
A perl.org message says that there is a reported problem in A.pm number rt://25019
Cpans records mentions a
workaround for a bug in Net::FTP 2.77, which drops the last character on each line when putting file in ASCII mode (provided by Serguey Trouchelle)
Sniffing further I find an Activestate mesage confirming a bug in 5.8

The Answer

Given the pain required to recover this information, the synopsis is

CPAN Bug rt://25019
Moving from Net::FTP to 2.75 to 2.77 (in 5.8.6) sees problem
Around line 75 in Net/FTP/A.pm
```
$tmp =~ s/[^\015]\012/\015\012/sg if $nr;
[download]
```
The regexp says "Search for any character followed by a \012, and replace it with \015\012". Since the character is not in the replacement string, it is deleted. This is one fix:
```
$tmp =~ s/([^\015];)\012/$1\015\012/sg if $nr;
[download]
```

Comment on Net::FTP and corrupted uploads has a patch Select or Download Code


Your skill will accomplish what the force of many cannot
	PerlMonks