[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.14 emacs/lisp/net/tramp.el:1.15
*** emacs/lisp/net/tramp.el:1.14        Sat Aug  3 13:04:43 2002
--- emacs/lisp/net/tramp.el     Sat Aug  3 16:54:52 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.7"
    "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.8"
    "This version of tramp.")
  
  (defconst tramp-bug-report-address "address@hidden"
***************
*** 1268,1278 ****
        split //, 
q(ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/);
  };
  
! binmode(\*STDIN);
  
  # We read in chunks of 54 bytes, to generate output lines
  # of 72 chars (plus end of line)
! $/ = \54;
  
  while (my $data = <STDIN>) {
      my $pad = q();
--- 1268,1278 ----
        split //, 
q(ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/);
  };
  
! binmode(\\*STDIN);
  
  # We read in chunks of 54 bytes, to generate output lines
  # of 72 chars (plus end of line)
! $/ = \\54;
  
  while (my $data = <STDIN>) {
      my $pad = q();
***************
*** 1291,1297 ****
          map($trans{$_},
              (substr(unpack(q(B*), $data) . q(00000), 0, 432) =~ /....../g)),
                $pad,
!                 qq(\n);
  }
  '"
    "Perl program to use for encoding a file.
--- 1291,1297 ----
          map($trans{$_},
              (substr(unpack(q(B*), $data) . q(00000), 0, 432) =~ /....../g)),
                $pad,
!                 qq(\\n);
  }
  '"
    "Perl program to use for encoding a file.
***************
*** 1312,1318 ****
  
  my %%bytes = map {(unpack(q(B8), chr $_), chr $_)} 0 .. 255;
  
! 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)
--- 1312,1318 ----
  
  my %%bytes = map {(unpack(q(B8), chr $_), chr $_)} 0 .. 255;
  
! 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)