[Emacs-diffs] Changes to emacs/lisp/net/tramp.el

[Kai Großjohann]

Index: emacs/lisp/net/tramp.el
diff -c emacs/lisp/net/tramp.el:1.13 emacs/lisp/net/tramp.el:1.14
*** emacs/lisp/net/tramp.el:1.13        Sat Aug  3 05:23:25 2002
--- emacs/lisp/net/tramp.el     Sat Aug  3 13:04:43 2002
***************
*** 72,78 ****
  ;; 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"
    "This version of tramp.")
  
  (defconst tramp-bug-report-address "address@hidden"
--- 72,78 ----
  ;; 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"
    "This version of tramp.")
  
  (defconst tramp-bug-report-address "address@hidden"
***************
*** 1244,1249 ****
--- 1244,1250 ----
    "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,1256 ****
--- 1252,1258 ----
    "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,1266 ****
  # Copyright (C) 2002 Free Software Foundation, Inc.
  use strict;
  
! my %trans = do {
      my $i = 0;
      map {(substr(unpack(q(B8), chr $i++), 2, 6), $_)}
        split //, 
q(ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/);
--- 1262,1268 ----
  # Copyright (C) 2002 Free Software Foundation, Inc.
  use strict;
  
! my %%trans = do {
      my $i = 0;
      map {(substr(unpack(q(B8), chr $i++), 2, 6), $_)}
        split //, 
q(ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/);
***************
*** 1277,1283 ****
  
      # Only for the last chunk, and only if did not fill the last three-byte 
packet
      if (eof) {
!         my $mod = length($data) % 3;
          $pad = q(=) x (3 - $mod) if $mod;
      }
  
--- 1279,1285 ----
  
      # Only for the last chunk, and only if did not fill the last three-byte 
packet
      if (eof) {
!         my $mod = length($data) %% 3;
          $pad = q(=) x (3 - $mod) if $mod;
      }
  
***************
*** 1293,1299 ****
  }
  '"
    "Perl program to use for encoding a file.
! Escape sequence %s is replaced with name of Perl binary.")
  
  (defvar tramp-perl-decode
    "%s -e '
--- 1295,1302 ----
  }
  '"
    "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.")
  
  (defvar tramp-perl-decode
    "%s -e '
***************
*** 1301,1313 ****
  # Copyright (C) 2002 Free Software Foundation, Inc.
  use strict;
  
! my %trans = do {
      my $i = 0;
!     map {($_, sprintf(q(%06b), $i++))}
        split //, 
q(ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/)
  };
  
! my %bytes = map {(unpack(q(B8), chr $_), chr $_)} 0 .. 255;
  
  binmode(\*STDOUT);
  
--- 1304,1316 ----
  # Copyright (C) 2002 Free Software Foundation, Inc.
  use strict;
  
! my %%trans = do {
      my $i = 0;
!     map {($_, sprintf(q(%%06b), $i++))}
        split //, 
q(ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/)
  };
  
! my %%bytes = map {(unpack(q(B8), chr $_), chr $_)} 0 .. 255;
  
  binmode(\*STDOUT);
  
***************
*** 1336,1342 ****
  }
  '"
    "Perl program to use for decoding a file.
! Escape sequence %s is replaced with name of Perl binary.")
  
  ; These values conform to `file-attributes' from XEmacs 21.2.
  ; GNU Emacs and other tools not checked.
--- 1339,1346 ----
  }
  '"
    "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.")
  
  ; These values conform to `file-attributes' from XEmacs 21.2.
  ; GNU Emacs and other tools not checked.