In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/6b10655d3ee68e96dae350f9c241e9e592f7c674?hp=38054f44427e03da46a7c92750ce2f7268d3014c>
- Log ----------------------------------------------------------------- commit 6b10655d3ee68e96dae350f9c241e9e592f7c674 Author: Chris 'BinGOs' Williams <[email protected]> Date: Tue Jan 13 00:39:46 2015 +0000 Update MIME-Base64 to CPAN version 3.15 [DELTA] 2015-01-12 Gisle Aas <[email protected]> Release 3.15 Avoid compilation warnings on Windows. Restore compatibility with perl-5.4 ----------------------------------------------------------------------- Summary of changes: Porting/Maintainers.pl | 2 +- cpan/MIME-Base64/Base64.pm | 2 +- cpan/MIME-Base64/Base64.xs | 4 ++-- 3 files changed, 4 insertions(+), 4 deletions(-) diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index 134b2ae..71204e4 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -786,7 +786,7 @@ use File::Glob qw(:case); }, 'MIME::Base64' => { - 'DISTRIBUTION' => 'GAAS/MIME-Base64-3.14.tar.gz', + 'DISTRIBUTION' => 'GAAS/MIME-Base64-3.15.tar.gz', 'FILES' => q[cpan/MIME-Base64], 'EXCLUDED' => ['t/bad-sv.t'], }, diff --git a/cpan/MIME-Base64/Base64.pm b/cpan/MIME-Base64/Base64.pm index 4e59b62..120cd72 100644 --- a/cpan/MIME-Base64/Base64.pm +++ b/cpan/MIME-Base64/Base64.pm @@ -8,7 +8,7 @@ require Exporter; @EXPORT = qw(encode_base64 decode_base64); @EXPORT_OK = qw(encode_base64url decode_base64url encoded_base64_length decoded_base64_length); -$VERSION = '3.14'; +$VERSION = '3.15'; require XSLoader; XSLoader::load('MIME::Base64', $VERSION); diff --git a/cpan/MIME-Base64/Base64.xs b/cpan/MIME-Base64/Base64.xs index b6959bc..903aa21 100644 --- a/cpan/MIME-Base64/Base64.xs +++ b/cpan/MIME-Base64/Base64.xs @@ -391,9 +391,9 @@ encode_qp(sv,...) break; } else if (*p == '\n' && eol_len && !binary) { - if (linelen == 1 && SvCUR(RETVAL) > eol_len + 1 && SvEND(RETVAL)[-eol_len - 2] == '=') { + if (linelen == 1 && SvCUR(RETVAL) > eol_len + 1 && (SvEND(RETVAL)-eol_len)[-2] == '=') { /* fixup useless soft linebreak */ - SvEND(RETVAL)[-eol_len - 2] = SvEND(RETVAL)[-1]; + (SvEND(RETVAL)-eol_len)[-2] = SvEND(RETVAL)[-1]; SvCUR_set(RETVAL, SvCUR(RETVAL) - 1); } else { -- Perl5 Master Repository
