# HG changeset patch
# User Kai Gro���johann <kgrossjo@eu.uu.net>
# Date 1028408092 0
# Node ID 1c4af44cad8c62fdbf4a2dfa5471c891816e6188
# Parent  342b3e8fd75c9d1f8c2af3124295551243c9236b
Version 2.0.8.
(tramp-perl-encode, tramp-perl-encode): Double the backslashes.

diff -r 342b3e8fd75c -r 1c4af44cad8c lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Aug 03 19:01:50 2002 +0000
+++ b/lisp/ChangeLog	Sat Aug 03 20:54:52 2002 +0000
@@ -1,3 +1,8 @@
+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.
diff -r 342b3e8fd75c -r 1c4af44cad8c lisp/net/tramp.el
--- a/lisp/net/tramp.el	Sat Aug 03 19:01:50 2002 +0000
+++ b/lisp/net/tramp.el	Sat Aug 03 20:54:52 2002 +0000
@@ -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 @@
       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 @@
         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 %%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)