diff lisp/net/tramp.el @ 46797:1c4af44cad8c

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

--- 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 "[e-mail]"
@@ -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)