changeset 46795:305403dc91a3

Version 2.0.7. (tramp-perl-encode-with-module, tramp-perl-decode-with-module) (tramp-perl-encode, tramp-perl-decode): Escape `%' characters because of `format' and say so in the docstring.

--- a/lisp/ChangeLog	Sat Aug 03 16:57:43 2002 +0000
+++ b/lisp/ChangeLog	Sat Aug 03 17:04:43 2002 +0000
@@ -1,3 +1,10 @@
[phone]  Kai Gro,b_(Bjohann  <[e-mail]>
+
+	* 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
+	because of `format' and say so in the docstring.
+
 2002-08-03  Glenn Morris  <[e-mail]>
 
 	* progmodes/f90.el (f90-font-lock-keywords-1): Fix highlighting of

--- a/lisp/net/tramp.el	Sat Aug 03 16:57:43 2002 +0000
+++ b/lisp/net/tramp.el	Sat Aug 03 17:04:43 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.6"
+(defconst tramp-version "2.0.7"
   "This version of tramp.")
 
 (defconst tramp-bug-report-address "[e-mail]"
@@ -1244,6 +1244,7 @@
   "perl -MMIME::Base64 -0777 -ne 'print encode_base64($_)'"
   "Perl program to use for encoding a file.
 Escape sequence %s is replaced with name of Perl binary.
+This string is passwd to `format', so percent characters need to be doubled.
 This implementation requires the MIME::Base64 Perl module to be installed
 on the remote host.")
 
@@ -1251,6 +1252,7 @@
   "perl -MMIME::Base64 -0777 -ne 'print decode_base64($_)'"
   "Perl program to use for decoding a file.
 Escape sequence %s is replaced with name of Perl binary.
+This string is passwd to `format', so percent characters need to be doubled.
 This implementation requires the MIME::Base64 Perl module to be installed
 on the remote host.")
 
@@ -1260,7 +1262,7 @@
 # Copyright (C) 2002 Free Software Foundation, Inc.
 use strict;
 
-my %trans = do {
+my %%trans = do {
     my $i = 0;
     map {(substr(unpack(q(B8), chr $i++), 2, 6), $_)}
       split //, q(ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/);
@@ -1277,7 +1279,7 @@
 
     # Only for the last chunk, and only if did not fill the last three-byte packet
     if (eof) {
-        my $mod = length($data) % 3;
+        my $mod = length($data) %% 3;
         $pad = q(=) x (3 - $mod) if $mod;
     }
 
@@ -1293,7 +1295,8 @@
 }
 '"
   "Perl program to use for encoding a file.
-Escape sequence %s is replaced with name of Perl binary.")
+Escape sequence %s is replaced with name of Perl binary.
+This string is passwd to `format', so percent characters need to be doubled.")
 
 (defvar tramp-perl-decode
   "%s -e '
@@ -1301,13 +1304,13 @@
 # Copyright (C) 2002 Free Software Foundation, Inc.
 use strict;
 
-my %trans = do {
+my %%trans = do {
     my $i = 0;
-    map {($_, sprintf(q(%06b), $i++))}
+    map {($_, sprintf(q(%%06b), $i++))}
       split //, q(ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/)
 };
 
-my %bytes = map {(unpack(q(B8), chr $_), chr $_)} 0 .. 255;
+my %%bytes = map {(unpack(q(B8), chr $_), chr $_)} 0 .. 255;
 
 binmode(\*STDOUT);
 
@@ -1336,7 +1339,8 @@
 }
 '"
   "Perl program to use for decoding a file.
-Escape sequence %s is replaced with name of Perl binary.")
+Escape sequence %s is replaced with name of Perl binary.
+This string is passwd to `format', so percent characters need to be doubled.")
 
 ; These values conform to `file-attributes' from XEmacs 21.2.
 ; GNU Emacs and other tools not checked.