/[tramp]/tramp/lisp/tramp.el
ViewVC logotype

Diff of /tramp/lisp/tramp.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2.166 by kai, Sat Aug 3 15:45:12 2002 UTC revision 2.167 by kai, Sat Aug 3 20:52:41 2002 UTC
# Line 72  Line 72 
72  ;; In the Tramp CVS repository, the version numer is auto-frobbed from  ;; In the Tramp CVS repository, the version numer is auto-frobbed from
73  ;; the Makefile, so you should edit the top-level Makefile to change  ;; the Makefile, so you should edit the top-level Makefile to change
74  ;; the version number.  ;; the version number.
75  (defconst tramp-version "2.0.6"  (defconst tramp-version "2.0.8"
76    "This version of tramp.")    "This version of tramp.")
77    
78  (defconst tramp-bug-report-address "tramp-devel@mail.freesoftware.fsf.org"  (defconst tramp-bug-report-address "tramp-devel@mail.freesoftware.fsf.org"
# Line 1268  my %%trans = do { Line 1268  my %%trans = do {
1268        split //, q(ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/);        split //, q(ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/);
1269  };  };
1270    
1271  binmode(\*STDIN);  binmode(\\*STDIN);
1272    
1273  # We read in chunks of 54 bytes, to generate output lines  # We read in chunks of 54 bytes, to generate output lines
1274  # of 72 chars (plus end of line)  # of 72 chars (plus end of line)
1275  $/ = \54;  $/ = \\54;
1276    
1277  while (my $data = <STDIN>) {  while (my $data = <STDIN>) {
1278      my $pad = q();      my $pad = q();
# Line 1291  while (my $data = <STDIN>) { Line 1291  while (my $data = <STDIN>) {
1291          map($trans{$_},          map($trans{$_},
1292              (substr(unpack(q(B*), $data) . q(00000), 0, 432) =~ /....../g)),              (substr(unpack(q(B*), $data) . q(00000), 0, 432) =~ /....../g)),
1293                $pad,                $pad,
1294                  qq(\n);                  qq(\\n);
1295  }  }
1296  '"  '"
1297    "Perl program to use for encoding a file.    "Perl program to use for encoding a file.
# Line 1312  my %%trans = do { Line 1312  my %%trans = do {
1312    
1313  my %%bytes = map {(unpack(q(B8), chr $_), chr $_)} 0 .. 255;  my %%bytes = map {(unpack(q(B8), chr $_), chr $_)} 0 .. 255;
1314    
1315  binmode(\*STDOUT);  binmode(\\*STDOUT);
1316    
1317  # We are going to accumulate into $pending to accept any line length  # We are going to accumulate into $pending to accept any line length
1318  # (we do not check they are <= 76 chars as the RFC says)  # (we do not check they are <= 76 chars as the RFC says)

Legend:
Removed from v.2.166  
changed lines
  Added in v.2.167

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26