From 1ba06dfd1b07262e1cf51fe44cd91e02aa66b010 Mon Sep 17 00:00:00 2001
From: Frank Brehm <frank@brehm-online.com>
Date: Thu, 20 May 2010 12:45:19 +0000
Subject: [PATCH] =?utf8?q?FTP-=C3=9Cbertragung=20auf=20binary=20eingestell?=
 =?utf8?q?t?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

git-svn-id: http://svn.brehm-online.com/svn/my-stuff/Perl@88 ec8d2aa5-1599-4edb-8739-2b3a1bc399aa
---
 lib/FrBr/Common/MooseX/Role/FtpClient.pm | 3 +++
 1 file changed, 3 insertions(+)

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;
-- 
2.39.5