# HG changeset patch
# User Heiko Schlittermann <hs@schlittermann.de>
# Date 1262036667 -3600
# Node ID 6f9037523a38c0c1e6144090d82d0598c60decb1
# Parent  860bc9dd9d16bfba004dbb9880173202faf7ab21# Parent  f9e6018b4a54666f0854c19f7fa47b1d81aee8b5
merged a5091a79d1c9

diff -r f9e6018b4a54 -r 6f9037523a38 Makefile
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/Makefile	Mon Dec 28 22:44:27 2009 +0100
@@ -0,0 +1,16 @@
+SCRIPT = ftpipe
+
+prefix = /usr/local
+bindir = ${prefix}/bin
+
+DESTDIR = 
+
+all:
+	true
+
+install: 
+	install -m 0755 -d ${DESTDIR}${bindir}
+	install -m 0755 ${SCRIPT} ${DESTDIR}${bindir}/
+
+clean:
+	true
diff -r f9e6018b4a54 -r 6f9037523a38 ftpipe
--- a/ftpipe	Mon Dec 28 22:12:30 2009 +0100
+++ b/ftpipe	Mon Dec 28 22:44:27 2009 +0100
@@ -38,6 +38,7 @@
 
     my $ftp = new FTP($ftp{host}, Debug => $opt_debug, Passive => 1);
     $ftp->login($ftp{user}, $ftp{pass});
+    $ftp->binary;
     $ftp->cwd($ftp{dir});
 
     given ($opt_cmd) {
@@ -90,8 +91,15 @@
 
     sub get {
         my $self = shift;
-        $self->SUPER::get(@_) or die "Can't put: " . $self->message;
+        $self->SUPER::get(@_) or die "Can't get: " . $self->message;
     }
+
+    sub binary {
+        my $self = shift;
+        $self->SUPER::binary(@_)
+          or die "Can't set binary mode: " . $self->message;
+    }
+
 }
 
 __END__