Sync with libnet 1.14

[p5sagit/p5-mst-13.2.git] / lib / Net / FTP / A.pm

diff --git a/lib/Net/FTP/A.pm b/lib/Net/FTP/A.pm
index 764e915..d068828 100644 (file)
--- a/lib/Net/FTP/A.pm
+++ b/lib/Net/FTP/A.pm
@@ -1,4 +1,4 @@
-## $Id: //depot/libnet/Net/FTP/A.pm#16 $
+## $Id: //depot/libnet/Net/FTP/A.pm#17 $
 ## Package to read/write on ASCII data connections
 ##
 
@@ -10,7 +10,7 @@ use Carp;
 require Net::FTP::dataconn;
 
 @ISA = qw(Net::FTP::dataconn);
-$VERSION = "1.15";
+$VERSION = "1.16";
 
 sub read {
   my    $data   = shift;
@@ -71,7 +71,7 @@ sub write {
   my    $size  = shift || croak 'write($buf,$size,[$timeout])';
   my    $timeout = @_ ? shift : $data->timeout;
 
-  (my $tmp = substr($buf,0,$size)) =~ s/\n/\015\012/sg;
+  (my $tmp = substr($buf,0,$size)) =~ s/\r?\n/\015\012/sg;
 
   # If the remote server has closed the connection we will be signal'd
   # when we write. This can happen if the disk on the remote server fills up