From 501179223bd4c1679ef7d4cbaf9759074733e097 Mon Sep 17 00:00:00 2001
From: Graham Barr <gbarr@pobox.com>
Date: Fri, 22 Feb 2002 15:11:48 +0000
Subject: Net::FTP - Don't do EBCDIC translation on a binary transfer

---
 Net/FTP.pm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Net/FTP.pm b/Net/FTP.pm
index 76265bb..5c94319 100644
--- a/Net/FTP.pm
+++ b/Net/FTP.pm
@@ -22,7 +22,7 @@ use Net::Config;
 use Fcntl qw(O_WRONLY O_RDONLY O_APPEND O_CREAT O_TRUNC);
 # use AutoLoader qw(AUTOLOAD);
 
-$VERSION = "2.62"; # $Id: //depot/libnet/Net/FTP.pm#65 $
+$VERSION = "2.63"; # $Id: //depot/libnet/Net/FTP.pm#66 $
 @ISA     = qw(Exporter Net::Cmd IO::Socket::INET);
 
 # Someday I will "use constant", when I am not bothered to much about
@@ -729,7 +729,7 @@ sub _store_cmd
   {
    last unless $len = sysread($loc,$buf="",$blksize);
 
-   if (trEBCDIC)
+   if (trEBCDIC && $ftp->type ne 'I')
     {
      $buf = $ftp->toascii($buf); 
      $len = length($buf);
@@ -1714,6 +1714,6 @@ under the same terms as Perl itself.
 
 =for html <hr>
 
-I<$Id: //depot/libnet/Net/FTP.pm#65 $>
+I<$Id: //depot/libnet/Net/FTP.pm#66 $>
 
 =cut
-- 
cgit v1.2.3-24-ge0c7