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.17" |
(defconst tramp-version "2.0.18" |
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" |
1491 |
|
|
1492 |
my %%trans = do { |
my %%trans = do { |
1493 |
my $i = 0; |
my $i = 0; |
1494 |
map {($_, sprintf(q(%%06b), $i++))} |
map {($_, substr(unpack(q(B8), chr $i++), 2, 6))} |
1495 |
split //, q(ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/) |
split //, q(ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/) |
1496 |
}; |
}; |
1497 |
|
|
1512 |
$pending .= $data; |
$pending .= $data; |
1513 |
|
|
1514 |
my $len = length($pending); |
my $len = length($pending); |
1515 |
my $chunk = substr($pending, 0, $len & ~3, q()); |
my $chunk = substr($pending, 0, $len & ~3); |
1516 |
|
|
1517 |
# Easy method: translate from chars to (pregenerated) six-bit packets, join, |
# Easy method: translate from chars to (pregenerated) six-bit packets, join, |
1518 |
# split in 8-bit chunks and convert back to char. |
# split in 8-bit chunks and convert back to char. |