From: Frank Brehm <frank@brehm-online.com>
Date: Thu, 20 May 2010 12:45:19 +0000 (+0000)
Subject: FTP-Übertragung auf binary eingestellt
X-Git-Url: https://git.uhu-banane.net/?a=commitdiff_plain;h=1ba06dfd1b07262e1cf51fe44cd91e02aa66b010;p=my-stuff%2Fperl.git

FTP-Übertragung auf binary eingestellt

git-svn-id: http://svn.brehm-online.com/svn/my-stuff/Perl@88 ec8d2aa5-1599-4edb-8739-2b3a1bc399aa
---

diff --git a/lib/FrBr/Common/MooseX/Role/FtpClient.pm b/lib/FrBr/Common/MooseX/Role/FtpClient.pm
index b218ffe..5b5b1ba 100644
--- a/lib/FrBr/Common/MooseX/Role/FtpClient.pm
+++ b/lib/FrBr/Common/MooseX/Role/FtpClient.pm
@@ -668,6 +668,9 @@ sub login_ftp {
     $self->debug( "FTP-Login erfolgreich." );
     $self->_set_ftp_connected(1);
 
+    $self->debug( "Setze Binärmodus ..." );
+    $ftp->binary;
+
     $self->debug( sprintf( "Wechsele in das FTP-Verzeichnis '%s' ...", $self->ftp_remote_dir->stringify ) );
     my $result = $ftp->cwd( $self->ftp_remote_dir->stringify );
     $self->error( sprintf( "Konnte nicht in das FTP-Verzeichnis '%s' wechseln: %s", $self->ftp_remote_dir->stringify, $ftp->message ) ) unless $result;