Update MIME-Base64 to CPAN version 3.15
authorChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Tue, 13 Jan 2015 00:39:46 +0000 (00:39 +0000)
committerChris 'BinGOs' Williams <chris@bingosnet.co.uk>
Tue, 13 Jan 2015 00:39:46 +0000 (00:39 +0000)
  [DELTA]

2015-01-12   Gisle Aas <gisle@ActiveState.com>

   Release 3.15

   Avoid compilation warnings on Windows.

   Restore compatibility with perl-5.4

Porting/Maintainers.pl
cpan/MIME-Base64/Base64.pm
cpan/MIME-Base64/Base64.xs

index 134b2ae..71204e4 100755 (executable)
@@ -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'],
     },
index 4e59b62..120cd72 100644 (file)
@@ -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);
index b6959bc..903aa21 100644 (file)
@@ -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 {