r70965 - in /branches/upstream/libmime-tools-perl/current: ./ lib/MIME/ lib/MIME/Decoder/ lib/MIME/Field/ t/
carnil at users.alioth.debian.org
carnil at users.alioth.debian.org
Wed Mar 9 15:58:57 UTC 2011
Author: carnil
Date: Wed Mar 9 15:58:48 2011
New Revision: 70965
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=70965
Log:
[svn-upgrade] new version libmime-tools-perl (5.502)
Added:
branches/upstream/libmime-tools-perl/current/t/ticket-66025.t
Modified:
branches/upstream/libmime-tools-perl/current/ChangeLog
branches/upstream/libmime-tools-perl/current/MANIFEST
branches/upstream/libmime-tools-perl/current/META.yml
branches/upstream/libmime-tools-perl/current/lib/MIME/Body.pm
branches/upstream/libmime-tools-perl/current/lib/MIME/Decoder.pm
branches/upstream/libmime-tools-perl/current/lib/MIME/Decoder/Base64.pm
branches/upstream/libmime-tools-perl/current/lib/MIME/Decoder/BinHex.pm
branches/upstream/libmime-tools-perl/current/lib/MIME/Decoder/Binary.pm
branches/upstream/libmime-tools-perl/current/lib/MIME/Decoder/Gzip64.pm
branches/upstream/libmime-tools-perl/current/lib/MIME/Decoder/NBit.pm
branches/upstream/libmime-tools-perl/current/lib/MIME/Decoder/QuotedPrint.pm
branches/upstream/libmime-tools-perl/current/lib/MIME/Decoder/UU.pm
branches/upstream/libmime-tools-perl/current/lib/MIME/Entity.pm
branches/upstream/libmime-tools-perl/current/lib/MIME/Field/ConTraEnc.pm
branches/upstream/libmime-tools-perl/current/lib/MIME/Field/ContDisp.pm
branches/upstream/libmime-tools-perl/current/lib/MIME/Field/ContType.pm
branches/upstream/libmime-tools-perl/current/lib/MIME/Field/ParamVal.pm
branches/upstream/libmime-tools-perl/current/lib/MIME/Head.pm
branches/upstream/libmime-tools-perl/current/lib/MIME/Parser.pm
branches/upstream/libmime-tools-perl/current/lib/MIME/Tools.pm
branches/upstream/libmime-tools-perl/current/lib/MIME/Words.pm
branches/upstream/libmime-tools-perl/current/t/Filer.t
branches/upstream/libmime-tools-perl/current/t/attachment-filename-encoding.t
Modified: branches/upstream/libmime-tools-perl/current/ChangeLog
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmime-tools-perl/current/ChangeLog?rev=70965&op=diff
==============================================================================
--- branches/upstream/libmime-tools-perl/current/ChangeLog (original)
+++ branches/upstream/libmime-tools-perl/current/ChangeLog Wed Mar 9 15:58:48 2011
@@ -1,3 +1,18 @@
+5.502 2011-03-08 David F. Skoll <dfs at roaringpenguin.com>
+
+ * VERSION 5.502 RELEASED
+
+ * NOTE to packagers (Debian, Red Hat, FreeBSD, etc.): Do not ship
+ MIME::tools 5.500 or 5.501. They both had serious bugs!
+
+ * Fix parsing bug: https://rt.cpan.org/Ticket/Display.html?id=66025
+
+ * Fix typo: https://rt.cpan.org/Ticket/Display.html?id=65387
+
+ * Fix unit tests on Perl 5.8.x: https://rt.cpan.org/Ticket/Display.html?id=66188
+
+ * Fix unit test failure on Win32: (https://rt.cpan.org/Ticket/Display.html?id=66286)
+
5.501 2011-02-17 David F. Skoll <dfs at roaringpenguin.com>
* VERSION 5.501 RELEASED
Modified: branches/upstream/libmime-tools-perl/current/MANIFEST
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmime-tools-perl/current/MANIFEST?rev=70965&op=diff
==============================================================================
--- branches/upstream/libmime-tools-perl/current/MANIFEST (original)
+++ branches/upstream/libmime-tools-perl/current/MANIFEST Wed Mar 9 15:58:48 2011
@@ -75,6 +75,7 @@
t/ticket-52924.t
t/ticket-60931.t
t/ticket-65681.t
+t/ticket-66025.t
t/WordDecoder.t
t/WordEncoder.t
t/Words.t
Modified: branches/upstream/libmime-tools-perl/current/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmime-tools-perl/current/META.yml?rev=70965&op=diff
==============================================================================
--- branches/upstream/libmime-tools-perl/current/META.yml (original)
+++ branches/upstream/libmime-tools-perl/current/META.yml Wed Mar 9 15:58:48 2011
@@ -35,4 +35,4 @@
perl: 5.8.0
resources:
license: http://dev.perl.org/licenses/
-version: 5.501
+version: 5.502
Modified: branches/upstream/libmime-tools-perl/current/lib/MIME/Body.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmime-tools-perl/current/lib/MIME/Body.pm?rev=70965&op=diff
==============================================================================
--- branches/upstream/libmime-tools-perl/current/lib/MIME/Body.pm (original)
+++ branches/upstream/libmime-tools-perl/current/lib/MIME/Body.pm Wed Mar 9 15:58:48 2011
@@ -141,7 +141,7 @@
use IO::File;
### The package version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = "5.501";
+$VERSION = "5.502";
#------------------------------
Modified: branches/upstream/libmime-tools-perl/current/lib/MIME/Decoder.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmime-tools-perl/current/lib/MIME/Decoder.pm?rev=70965&op=diff
==============================================================================
--- branches/upstream/libmime-tools-perl/current/lib/MIME/Decoder.pm (original)
+++ branches/upstream/libmime-tools-perl/current/lib/MIME/Decoder.pm Wed Mar 9 15:58:48 2011
@@ -126,7 +126,7 @@
);
### The package version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = "5.501";
+$VERSION = "5.502";
### Me:
my $ME = 'MIME::Decoder';
Modified: branches/upstream/libmime-tools-perl/current/lib/MIME/Decoder/Base64.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmime-tools-perl/current/lib/MIME/Decoder/Base64.pm?rev=70965&op=diff
==============================================================================
--- branches/upstream/libmime-tools-perl/current/lib/MIME/Decoder/Base64.pm (original)
+++ branches/upstream/libmime-tools-perl/current/lib/MIME/Decoder/Base64.pm Wed Mar 9 15:58:48 2011
@@ -58,7 +58,7 @@
@ISA = qw(MIME::Decoder);
### The package version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = "5.501";
+$VERSION = "5.502";
### How many bytes to encode at a time (must be a multiple of 3, and
### less than (76 * 0.75)!
Modified: branches/upstream/libmime-tools-perl/current/lib/MIME/Decoder/BinHex.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmime-tools-perl/current/lib/MIME/Decoder/BinHex.pm?rev=70965&op=diff
==============================================================================
--- branches/upstream/libmime-tools-perl/current/lib/MIME/Decoder/BinHex.pm (original)
+++ branches/upstream/libmime-tools-perl/current/lib/MIME/Decoder/BinHex.pm Wed Mar 9 15:58:48 2011
@@ -45,7 +45,7 @@
@ISA = qw(MIME::Decoder);
# The package version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = "5.501";
+$VERSION = "5.502";
#------------------------------
Modified: branches/upstream/libmime-tools-perl/current/lib/MIME/Decoder/Binary.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmime-tools-perl/current/lib/MIME/Decoder/Binary.pm?rev=70965&op=diff
==============================================================================
--- branches/upstream/libmime-tools-perl/current/lib/MIME/Decoder/Binary.pm (original)
+++ branches/upstream/libmime-tools-perl/current/lib/MIME/Decoder/Binary.pm Wed Mar 9 15:58:48 2011
@@ -45,7 +45,7 @@
@ISA = qw(MIME::Decoder);
### The package version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = "5.501";
+$VERSION = "5.502";
### Buffer length:
my $BUFLEN = 8192;
Modified: branches/upstream/libmime-tools-perl/current/lib/MIME/Decoder/Gzip64.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmime-tools-perl/current/lib/MIME/Decoder/Gzip64.pm?rev=70965&op=diff
==============================================================================
--- branches/upstream/libmime-tools-perl/current/lib/MIME/Decoder/Gzip64.pm (original)
+++ branches/upstream/libmime-tools-perl/current/lib/MIME/Decoder/Gzip64.pm Wed Mar 9 15:58:48 2011
@@ -61,7 +61,7 @@
@ISA = qw(MIME::Decoder::Base64);
# The package version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = "5.501";
+$VERSION = "5.502";
# How to compress stdin to stdout:
$GZIP = "gzip -c";
Modified: branches/upstream/libmime-tools-perl/current/lib/MIME/Decoder/NBit.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmime-tools-perl/current/lib/MIME/Decoder/NBit.pm?rev=70965&op=diff
==============================================================================
--- branches/upstream/libmime-tools-perl/current/lib/MIME/Decoder/NBit.pm (original)
+++ branches/upstream/libmime-tools-perl/current/lib/MIME/Decoder/NBit.pm Wed Mar 9 15:58:48 2011
@@ -96,7 +96,7 @@
@ISA = qw(MIME::Decoder);
### The package version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = "5.501";
+$VERSION = "5.502";
### How many bytes to decode at a time?
my $DecodeChunkLength = 8 * 1024;
Modified: branches/upstream/libmime-tools-perl/current/lib/MIME/Decoder/QuotedPrint.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmime-tools-perl/current/lib/MIME/Decoder/QuotedPrint.pm?rev=70965&op=diff
==============================================================================
--- branches/upstream/libmime-tools-perl/current/lib/MIME/Decoder/QuotedPrint.pm (original)
+++ branches/upstream/libmime-tools-perl/current/lib/MIME/Decoder/QuotedPrint.pm Wed Mar 9 15:58:48 2011
@@ -56,7 +56,7 @@
@ISA = qw(MIME::Decoder);
# The package version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = "5.501";
+$VERSION = "5.502";
#------------------------------
# If we have MIME::QuotedPrint 3.03 or later, use the three-argument
Modified: branches/upstream/libmime-tools-perl/current/lib/MIME/Decoder/UU.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmime-tools-perl/current/lib/MIME/Decoder/UU.pm?rev=70965&op=diff
==============================================================================
--- branches/upstream/libmime-tools-perl/current/lib/MIME/Decoder/UU.pm (original)
+++ branches/upstream/libmime-tools-perl/current/lib/MIME/Decoder/UU.pm Wed Mar 9 15:58:48 2011
@@ -47,7 +47,7 @@
@ISA = qw(MIME::Decoder);
# The package version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = "5.501";
+$VERSION = "5.502";
#------------------------------
Modified: branches/upstream/libmime-tools-perl/current/lib/MIME/Entity.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmime-tools-perl/current/lib/MIME/Entity.pm?rev=70965&op=diff
==============================================================================
--- branches/upstream/libmime-tools-perl/current/lib/MIME/Entity.pm (original)
+++ branches/upstream/libmime-tools-perl/current/lib/MIME/Entity.pm Wed Mar 9 15:58:48 2011
@@ -245,7 +245,7 @@
#------------------------------
### The package version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = "5.501";
+$VERSION = "5.502";
### Boundary counter:
my $BCount = 0;
Modified: branches/upstream/libmime-tools-perl/current/lib/MIME/Field/ConTraEnc.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmime-tools-perl/current/lib/MIME/Field/ConTraEnc.pm?rev=70965&op=diff
==============================================================================
--- branches/upstream/libmime-tools-perl/current/lib/MIME/Field/ConTraEnc.pm (original)
+++ branches/upstream/libmime-tools-perl/current/lib/MIME/Field/ConTraEnc.pm Wed Mar 9 15:58:48 2011
@@ -47,7 +47,7 @@
@ISA = qw(MIME::Field::ParamVal);
# The package version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = "5.501";
+$VERSION = "5.502";
# Install it:
bless([])->register('Content-transfer-encoding');
Modified: branches/upstream/libmime-tools-perl/current/lib/MIME/Field/ContDisp.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmime-tools-perl/current/lib/MIME/Field/ContDisp.pm?rev=70965&op=diff
==============================================================================
--- branches/upstream/libmime-tools-perl/current/lib/MIME/Field/ContDisp.pm (original)
+++ branches/upstream/libmime-tools-perl/current/lib/MIME/Field/ContDisp.pm Wed Mar 9 15:58:48 2011
@@ -48,7 +48,7 @@
@ISA = qw(MIME::Field::ParamVal);
# The package version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = "5.501";
+$VERSION = "5.502";
# Install it:
bless([])->register('Content-disposition');
Modified: branches/upstream/libmime-tools-perl/current/lib/MIME/Field/ContType.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmime-tools-perl/current/lib/MIME/Field/ContType.pm?rev=70965&op=diff
==============================================================================
--- branches/upstream/libmime-tools-perl/current/lib/MIME/Field/ContType.pm (original)
+++ branches/upstream/libmime-tools-perl/current/lib/MIME/Field/ContType.pm Wed Mar 9 15:58:48 2011
@@ -63,7 +63,7 @@
@ISA = qw(MIME::Field::ParamVal);
# The package version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = "5.501";
+$VERSION = "5.502";
# Install it:
bless([])->register('Content-type');
Modified: branches/upstream/libmime-tools-perl/current/lib/MIME/Field/ParamVal.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmime-tools-perl/current/lib/MIME/Field/ParamVal.pm?rev=70965&op=diff
==============================================================================
--- branches/upstream/libmime-tools-perl/current/lib/MIME/Field/ParamVal.pm (original)
+++ branches/upstream/libmime-tools-perl/current/lib/MIME/Field/ParamVal.pm Wed Mar 9 15:58:48 2011
@@ -79,7 +79,7 @@
#------------------------------
# The package version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = "5.501";
+$VERSION = "5.502";
#------------------------------
Modified: branches/upstream/libmime-tools-perl/current/lib/MIME/Head.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmime-tools-perl/current/lib/MIME/Head.pm?rev=70965&op=diff
==============================================================================
--- branches/upstream/libmime-tools-perl/current/lib/MIME/Head.pm (original)
+++ branches/upstream/libmime-tools-perl/current/lib/MIME/Head.pm Wed Mar 9 15:58:48 2011
@@ -138,7 +138,7 @@
#------------------------------
### The package version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = "5.501";
+$VERSION = "5.502";
### Sanity (we put this test after our own version, for CPAN::):
use Mail::Header 1.06 ();
@@ -366,7 +366,7 @@
character set: thus, the Q-encoding C<=F8> is simply translated to the
octet (hexadecimal C<F8>), period. For piece-by-piece decoding
of a given field, you want the array context of
-C<MIME::Word::decode_mimewords()>.
+C<MIME::Words::decode_mimewords()>.
B<Warning:> the CRLF+SPACE separator that splits up long encoded words
into shorter sequences (see the Subject: example above) gets lost
Modified: branches/upstream/libmime-tools-perl/current/lib/MIME/Parser.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmime-tools-perl/current/lib/MIME/Parser.pm?rev=70965&op=diff
==============================================================================
--- branches/upstream/libmime-tools-perl/current/lib/MIME/Parser.pm (original)
+++ branches/upstream/libmime-tools-perl/current/lib/MIME/Parser.pm Wed Mar 9 15:58:48 2011
@@ -153,7 +153,7 @@
#------------------------------
### The package version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = "5.501";
+$VERSION = "5.502";
### How to catenate:
$CAT = '/bin/cat';
Modified: branches/upstream/libmime-tools-perl/current/lib/MIME/Tools.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmime-tools-perl/current/lib/MIME/Tools.pm?rev=70965&op=diff
==============================================================================
--- branches/upstream/libmime-tools-perl/current/lib/MIME/Tools.pm (original)
+++ branches/upstream/libmime-tools-perl/current/lib/MIME/Tools.pm Wed Mar 9 15:58:48 2011
@@ -28,7 +28,7 @@
Exporter::export_ok_tags('config', 'msgs', 'msgtypes', 'utils');
# The TOOLKIT version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = "5.501";
+$VERSION = "5.502";
# Configuration (do NOT alter this directly)...
# All legal CONFIG vars *must* be in here, even if only to be set to undef:
Modified: branches/upstream/libmime-tools-perl/current/lib/MIME/Words.pm
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmime-tools-perl/current/lib/MIME/Words.pm?rev=70965&op=diff
==============================================================================
--- branches/upstream/libmime-tools-perl/current/lib/MIME/Words.pm (original)
+++ branches/upstream/libmime-tools-perl/current/lib/MIME/Words.pm Wed Mar 9 15:58:48 2011
@@ -93,7 +93,7 @@
#------------------------------
### The package version, both in 1.23 style *and* usable by MakeMaker:
-$VERSION = "5.501";
+$VERSION = "5.502";
### Nonprintables (controls + x7F + 8bit):
my $NONPRINT = "\\x00-\\x1F\\x7F-\\xFF";
@@ -215,7 +215,7 @@
(.*? # shortest possible string,
\n*) # followed by 0 or more NLs,
(?=(\Z|=\?)) # terminated by "=?" or EOS
- }xg) {
+ }sxg) {
length($1) or die "MIME::Words: internal logic err: empty token\n";
push @tokens, [$1];
next;
Modified: branches/upstream/libmime-tools-perl/current/t/Filer.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmime-tools-perl/current/t/Filer.t?rev=70965&op=diff
==============================================================================
--- branches/upstream/libmime-tools-perl/current/t/Filer.t (original)
+++ branches/upstream/libmime-tools-perl/current/t/Filer.t Wed Mar 9 15:58:48 2011
@@ -3,8 +3,20 @@
use warnings;
use Test::More tests => 17;
+use Config;
+
binmode(STDOUT, ":utf8");
binmode(STDERR, ":utf8");
+
+# Perl < 5.10.0 did not handle Unicode at all...
+my $wookie;
+
+if ($Config{'PERL_REVISION'} == 5 &&
+ $Config{'PERL_VERSION'} <= 8) {
+ $wookie = 'wookie%D0.doc';
+} else {
+ $wookie = 'wookie%42D.doc';
+}
BEGIN {
use_ok('MIME::Parser::Filer');
@@ -23,7 +35,7 @@
'..' => '...dat',
'index[1].html' => '.html',
" wookie\x{f8}.doc" => "wookie%F8.doc",
- " wookie\x{042d}.doc" => "wookie%42D.doc",
+ " wookie\x{042d}.doc" => $wookie,
);
foreach my $name (keys %evil) {
Modified: branches/upstream/libmime-tools-perl/current/t/attachment-filename-encoding.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmime-tools-perl/current/t/attachment-filename-encoding.t?rev=70965&op=diff
==============================================================================
--- branches/upstream/libmime-tools-perl/current/t/attachment-filename-encoding.t (original)
+++ branches/upstream/libmime-tools-perl/current/t/attachment-filename-encoding.t Wed Mar 9 15:58:48 2011
@@ -3,6 +3,7 @@
use strict;
use warnings;
use Test::More;
+use File::Temp qw(tempdir);
use utf8;
binmode STDOUT, ":utf8";
@@ -44,9 +45,10 @@
# CPAN ticket #65162
# We need the default parser to tickle the bug
+ my $dir = tempdir(CLEANUP => 1);
$parser = MIME::Parser->new();
$parser->output_to_core(0);
- $parser->output_under('/tmp');
+ $parser->output_under($dir);
$entity = $parser->parse_data("From: test\@example.com\nSubject: test\nDate: Tue, 25 Jan 2011 14:35:04 +0100\nMessage-Id: <123\@example.com>\nContent-Type: text/plain; name*=utf-8''%CE%B2CURE%2Etxt\n\ntest\n");
$filename = $entity->head->recommended_filename;
is(utf8::is_utf8($filename), 1, "Parsed filename should have UTF-8 flag on");
Added: branches/upstream/libmime-tools-perl/current/t/ticket-66025.t
URL: http://svn.debian.org/wsvn/pkg-perl/branches/upstream/libmime-tools-perl/current/t/ticket-66025.t?rev=70965&op=file
==============================================================================
--- branches/upstream/libmime-tools-perl/current/t/ticket-66025.t (added)
+++ branches/upstream/libmime-tools-perl/current/t/ticket-66025.t Wed Mar 9 15:58:48 2011
@@ -1,0 +1,8 @@
+use Test::More tests => 1;
+use Test::Deep;
+
+use MIME::Words;
+
+cmp_deeply(MIME::Words::decode_mimewords("\nx"),
+ ["\nx"],
+ "Fix for ticket #66025 passes");
More information about the Pkg-perl-cvs-commits
mailing list