* net/tramp-sh.el (tramp-perl-encode): Use "read STDIN" instead of

"<STDIN>".  This is binary safe.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 79028d68f7378dda9094004affd4833bf83a5127..618b407fbea5ad3d88ca2a82c80274f9fe09d83e 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2012-11-27  Michael Albinus  <michael.albinus@gmx.de>
+
+       * net/tramp-sh.el (tramp-perl-encode): Use "read STDIN" instead of
+       "<STDIN>".  This is binary safe.
+
 2012-11-27  Stefan Monnier  <monnier@iro.umontreal.ca>
 
        * textmodes/table.el (table-insert): Don't use `symbol-name' on

diff --git a/lisp/net/tramp-sh.el b/lisp/net/tramp-sh.el
index 07da0b3dc16722f92d7e6e73f41824a1d45c1ae6..340b7ad353debf3f482e30899cfcbe9861dacae2 100644 (file)
--- a/lisp/net/tramp-sh.el
+++ b/lisp/net/tramp-sh.el
@@ -813,14 +813,11 @@ my %%trans = do {
     map {(substr(unpack(q(B8), chr $i++), 2, 6), $_)}
       split //, q(ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/);
 };
-
-binmode(\\*STDIN);
+my $data;
 
 # We read in chunks of 54 bytes, to generate output lines
 # of 72 chars (plus end of line)
-$/ = \\54;
-
-while (my $data = <STDIN>) {
+while (read STDIN, $data, 54) {
     my $pad = q();
 
     # Only for the last chunk, and only if did not fill the last three-byte packet