diff options
author | Graham Barr <gbarr@pobox.com> | 2007-04-25 20:40:17 +0000 |
---|---|---|
committer | Graham Barr <gbarr@pobox.com> | 2009-02-24 10:40:48 -0600 |
commit | c490800ca0c8b095684f3a09ba393a9b231b4708 (patch) | |
tree | 711368a38dc1f7a4bc47b49b84d98228ce19dec0 | |
parent | a6dad2861af99ff15840cd3fb276e941dcab07ff (diff) | |
download | perl-libnet-c490800ca0c8b095684f3a09ba393a9b231b4708.tar.gz |
Do not remove last character of line when adding \r
-rw-r--r-- | Net/FTP/A.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/Net/FTP/A.pm b/Net/FTP/A.pm index 44b9cdb..4daec36 100644 --- a/Net/FTP/A.pm +++ b/Net/FTP/A.pm @@ -10,7 +10,7 @@ use Carp; require Net::FTP::dataconn; @ISA = qw(Net::FTP::dataconn); -$VERSION = "1.17"; +$VERSION = "1.18"; sub read { my $data = shift; @@ -72,7 +72,7 @@ sub write { my $timeout = @_ ? shift : $data->timeout; my $nr = (my $tmp = substr($buf,0,$size)) =~ tr/\r\n/\015\012/; - $tmp =~ s/[^\015]\012/\015\012/sg if $nr; + $tmp =~ s/([^\015])\012/$1\015\012/sg if $nr; $tmp =~ s/^\012/\015\012/ unless ${*$data}{'net_ftp_outcr'}; ${*$data}{'net_ftp_outcr'} = substr($tmp,-1) eq "\015"; |