[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/emacs-24 r110967: * net/tramp-sh.el (tramp-
From: |
Michael Albinus |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/emacs-24 r110967: * net/tramp-sh.el (tramp-perl-encode): Use "read STDIN" instead of |
Date: |
Tue, 27 Nov 2012 15:55:25 +0100 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
revno: 110967
committer: Michael Albinus <address@hidden>
branch nick: emacs-24
timestamp: Tue 2012-11-27 15:55:25 +0100
message:
* net/tramp-sh.el (tramp-perl-encode): Use "read STDIN" instead of
"<STDIN>". This is binary safe.
modified:
lisp/ChangeLog
lisp/net/tramp-sh.el
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog 2012-11-27 02:06:19 +0000
+++ b/lisp/ChangeLog 2012-11-27 14:55:25 +0000
@@ -1,3 +1,8 @@
+2012-11-27 Michael Albinus <address@hidden>
+
+ * net/tramp-sh.el (tramp-perl-encode): Use "read STDIN" instead of
+ "<STDIN>". This is binary safe.
+
2012-11-27 Stefan Monnier <address@hidden>
* textmodes/table.el (table-insert): Don't use `symbol-name' on
=== modified file 'lisp/net/tramp-sh.el'
--- a/lisp/net/tramp-sh.el 2012-11-19 15:25:10 +0000
+++ b/lisp/net/tramp-sh.el 2012-11-27 14:55:25 +0000
@@ -813,14 +813,11 @@
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
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/emacs-24 r110967: * net/tramp-sh.el (tramp-perl-encode): Use "read STDIN" instead of,
Michael Albinus <=