Version 2.0.8.

(tramp-perl-encode, tramp-perl-encode): Double the backslashes.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 14f2c91ee141f3571952c8230c4dba5dd2249aa7..27b596e30d29b9135bedf9a9b41eff02ef75d949 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,8 @@
+2002-08-03  Kai Gro\e,b_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
+
+       * net/tramp.el: Version 2.0.8.
+       (tramp-perl-encode, tramp-perl-encode): Double the backslashes.
+
 2002-08-03  Kai Gro\e,b_\e(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
 
        * net/tramp.el: Version 2.0.7.

diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el
index 6dfe7a7ec9c48236236ca04efcd46052eb1e0769..a3b343b99ef2706506845ce8dcd58343ead27a02 100644 (file)
--- 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 = <STDIN>) {
     my $pad = q();
@@ -1291,7 +1291,7 @@ while (my $data = <STDIN>) {
         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)