From 365417014078a0f260fd24d41845aeb274b876c8 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Kai=20Gro=C3=9Fjohann?= Date: Sat, 3 Aug 2002 20:54:52 +0000 Subject: [PATCH] Version 2.0.8. (tramp-perl-encode, tramp-perl-encode): Double the backslashes. --- lisp/ChangeLog | 5 +++++ lisp/net/tramp.el | 10 +++++----- 2 files changed, 10 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 14f2c91ee14..27b596e30d2 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2002-08-03 Kai Gro,b_(Bjohann + + * net/tramp.el: Version 2.0.8. + (tramp-perl-encode, tramp-perl-encode): Double the backslashes. + 2002-08-03 Kai Gro,b_(Bjohann * net/tramp.el: Version 2.0.7. diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index 6dfe7a7ec9c..a3b343b99ef 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el @@ -72,7 +72,7 @@ ;; In the Tramp CVS repository, the version numer is auto-frobbed from ;; the Makefile, so you should edit the top-level Makefile to change ;; the version number. -(defconst tramp-version "2.0.7" +(defconst tramp-version "2.0.8" "This version of tramp.") (defconst tramp-bug-report-address "tramp-devel@mail.freesoftware.fsf.org" @@ -1268,11 +1268,11 @@ my %%trans = do { split //, q(ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/); }; -binmode(\*STDIN); +binmode(\\*STDIN); # We read in chunks of 54 bytes, to generate output lines # of 72 chars (plus end of line) -$/ = \54; +$/ = \\54; while (my $data = ) { my $pad = q(); @@ -1291,7 +1291,7 @@ while (my $data = ) { map($trans{$_}, (substr(unpack(q(B*), $data) . q(00000), 0, 432) =~ /....../g)), $pad, - qq(\n); + qq(\\n); } '" "Perl program to use for encoding a file. @@ -1312,7 +1312,7 @@ my %%trans = do { my %%bytes = map {(unpack(q(B8), chr $_), chr $_)} 0 .. 255; -binmode(\*STDOUT); +binmode(\\*STDOUT); # We are going to accumulate into $pending to accept any line length # (we do not check they are <= 76 chars as the RFC says) -- 2.39.2