Version 2.0.8.

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

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,5 +1,10 @@
 2002-08-03  Kai Gro,b_(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,b_(Bjohann  <Kai.Grossjohann@CS.Uni-Dortmund.DE>
+
         * net/tramp.el: Version 2.0.7.
         (tramp-perl-encode-with-module, tramp-perl-decode-with-module) 
         (tramp-perl-encode, tramp-perl-decode): Escape `%' characters
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 = <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)