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 b218ffe8a2fa70cbf2b52cbdf149b1ba7675a703..5b5b1baf0c34182763df234ccd6ff3ea896de504 100644 (file)
--- 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;