r69215 - in /trunk/libemail-mime-perl: Changes META.yml Makefile.PL debian/changelog debian/control debian/copyright lib/Email/MIME.pm lib/Email/MIME/Creator.pm lib/Email/MIME/Header.pm lib/Email/MIME/Modifier.pm t/encoding.t t/perl-minver.t
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Mon Feb 21 14:16:02 UTC 2011
Author: jawnsy-guest
Date: Mon Feb 21 14:15:35 2011
New Revision: 69215
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=69215
Log:
looks good, dch -r
Modified:
trunk/libemail-mime-perl/Changes
trunk/libemail-mime-perl/META.yml
trunk/libemail-mime-perl/Makefile.PL
trunk/libemail-mime-perl/debian/changelog
trunk/libemail-mime-perl/debian/control
trunk/libemail-mime-perl/debian/copyright
trunk/libemail-mime-perl/lib/Email/MIME.pm
trunk/libemail-mime-perl/lib/Email/MIME/Creator.pm
trunk/libemail-mime-perl/lib/Email/MIME/Header.pm
trunk/libemail-mime-perl/lib/Email/MIME/Modifier.pm
trunk/libemail-mime-perl/t/encoding.t
trunk/libemail-mime-perl/t/perl-minver.t
Modified: trunk/libemail-mime-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-mime-perl/Changes?rev=69215&op=diff
==============================================================================
--- trunk/libemail-mime-perl/Changes (original)
+++ trunk/libemail-mime-perl/Changes Mon Feb 21 14:15:35 2011
@@ -1,4 +1,11 @@
Revision history for Perl extension Email::MIME.
+
+1.907 2011-02-02
+
+ require 5.8.5 for sane encoding
+
+ be more lenient with Content-Tranfser-Encoding values; stop at
+ semicolons
1.906 2010-10-07
update our prereq on Test::More to 0.88
Modified: trunk/libemail-mime-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-mime-perl/META.yml?rev=69215&op=diff
==============================================================================
--- trunk/libemail-mime-perl/META.yml (original)
+++ trunk/libemail-mime-perl/META.yml Mon Feb 21 14:15:35 2011
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Email-MIME
-version: 1.906
+version: 1.907
abstract: ~
author: []
license: perl
Modified: trunk/libemail-mime-perl/Makefile.PL
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-mime-perl/Makefile.PL?rev=69215&op=diff
==============================================================================
--- trunk/libemail-mime-perl/Makefile.PL (original)
+++ trunk/libemail-mime-perl/Makefile.PL Mon Feb 21 14:15:35 2011
@@ -1,4 +1,4 @@
-use 5.006; # see t/perl-minver.t
+use 5.8.5; # see t/perl-minver.t
use strict;
use warnings;
use ExtUtils::MakeMaker;
Modified: trunk/libemail-mime-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-mime-perl/debian/changelog?rev=69215&op=diff
==============================================================================
--- trunk/libemail-mime-perl/debian/changelog (original)
+++ trunk/libemail-mime-perl/debian/changelog Mon Feb 21 14:15:35 2011
@@ -1,3 +1,10 @@
+libemail-mime-perl (1.907-1) unstable; urgency=low
+
+ * New upstream release
+ * Refresh copyright information
+
+ -- Jonathan Yu <jawnsy at cpan.org> Mon, 21 Feb 2011 09:38:51 -0500
+
libemail-mime-perl (1.906-1) unstable; urgency=low
[ gregor herrmann ]
Modified: trunk/libemail-mime-perl/debian/control
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-mime-perl/debian/control?rev=69215&op=diff
==============================================================================
--- trunk/libemail-mime-perl/debian/control (original)
+++ trunk/libemail-mime-perl/debian/control Mon Feb 21 14:15:35 2011
@@ -2,11 +2,17 @@
Section: perl
Priority: optional
Build-Depends: debhelper (>= 7)
-Build-Depends-Indep: perl, libemail-simple-perl (>= 2.004),
- libemail-mime-contenttype-perl, libemail-mime-encodings-perl (>= 1.313),
- libmime-types-perl, libtest-pod-coverage-perl, libtest-pod-perl,
- libemail-simple-perl (>= 2.100) | libemail-simple-creator-perl, libemail-messageid-perl,
- libtest-minimumversion-perl, perl (>= 5.10.1) | libtest-simple-perl (>= 0.88)
+Build-Depends-Indep: perl,
+ libemail-simple-perl (>= 2.004),
+ libemail-mime-contenttype-perl,
+ libemail-mime-encodings-perl (>= 1.313),
+ libmime-types-perl,
+ libtest-pod-coverage-perl,
+ libtest-pod-perl,
+ libemail-simple-perl (>= 2.100) | libemail-simple-creator-perl,
+ libemail-messageid-perl,
+ libtest-minimumversion-perl,
+ perl (>= 5.10.1) | libtest-simple-perl (>= 0.88)
Maintainer: Debian Perl Group <pkg-perl-maintainers at lists.alioth.debian.org>
Uploaders: Ernesto Hernández-Novich (USB) <emhn at usb.ve>,
Damyan Ivanov <dmn at debian.org>, Ansgar Burchardt <ansgar at debian.org>,
@@ -18,9 +24,13 @@
Package: libemail-mime-perl
Architecture: all
-Depends: ${misc:Depends}, ${perl:Depends}, libemail-simple-perl (>= 2.004),
- libemail-mime-contenttype-perl, libemail-mime-encodings-perl (>= 1.313),
- libmime-types-perl, libemail-simple-perl (>= 2.100) | libemail-simple-creator-perl, libemail-messageid-perl
+Depends: ${misc:Depends}, ${perl:Depends},
+ libemail-simple-perl (>= 2.004),
+ libemail-mime-contenttype-perl,
+ libemail-mime-encodings-perl (>= 1.313),
+ libmime-types-perl,
+ libemail-simple-perl (>= 2.100) | libemail-simple-creator-perl,
+ libemail-messageid-perl
Provides: libemail-mime-modifier-perl, libemail-mime-creator-perl
Breaks: libemail-mime-modifier-perl (<< 1.900-1),
libemail-mime-creator-perl (<< 1.900-1)
@@ -55,4 +65,3 @@
.
This is a transitional dummy package which can be safely removed after the
upgrade. The Email::MIME::Creator module is now part of Email::MIME.
-
Modified: trunk/libemail-mime-perl/debian/copyright
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-mime-perl/debian/copyright?rev=69215&op=diff
==============================================================================
--- trunk/libemail-mime-perl/debian/copyright (original)
+++ trunk/libemail-mime-perl/debian/copyright Mon Feb 21 14:15:35 2011
@@ -1,5 +1,5 @@
Format-Specification: http://svn.debian.org/wsvn/dep/web/deps/dep5.mdwn?op=file&rev=135
-Maintainer: Ricardo Signes, rjbs at cpan.org
+Maintainer: Ricardo Signes <rjbs at cpan.org>
Source: http://search.cpan.org/dist/Email-MIME/
Name: Email-MIME
@@ -8,7 +8,7 @@
License: Artistic or GPL-1+
Files: debian/*
-Copyright: 2009, Jonathan Yu <jawnsy at cpan.org>
+Copyright: 2009-2011, Jonathan Yu <jawnsy at cpan.org>
2009, Brian Cassidy <brian.cassidy at gmail.com>
2007, Russ Allbery <rra at debian.org>
2007, Damyan Ivanov <dmn at debian.org>
Modified: trunk/libemail-mime-perl/lib/Email/MIME.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-mime-perl/lib/Email/MIME.pm?rev=69215&op=diff
==============================================================================
--- trunk/libemail-mime-perl/lib/Email/MIME.pm (original)
+++ trunk/libemail-mime-perl/lib/Email/MIME.pm Mon Feb 21 14:15:35 2011
@@ -1,4 +1,4 @@
-use 5.006;
+use 5.8.5;
use strict;
use warnings;
@@ -21,7 +21,7 @@
=head1 VERSION
-version 1.906
+version 1.907
=head1 SYNOPSIS
@@ -111,10 +111,14 @@
=cut
-our $VERSION = '1.906';
-
-use vars qw[$CREATOR];
-$CREATOR = 'Email::MIME::Creator';
+our $VERSION = '1.907';
+
+our $CREATOR = 'Email::MIME::Creator';
+
+my $NO_ENCODE_RE = qr/
+ \A
+ (?:7bit|8bit|binary)\s*(?:;|$)
+/ix;
sub new {
my $self = shift->SUPER::new(@_);
@@ -296,7 +300,7 @@
return $body unless $cte;
- if (!$self->force_decode_hook and $cte =~ /\A(?:7bit|8bit|binary)\z/i) {
+ if (!$self->force_decode_hook and $cte =~ $NO_ENCODE_RE) {
return $body;
}
@@ -550,7 +554,7 @@
# object. -- rjbs, 2007-07-16
unless (((caller(1))[3] || '') eq 'Email::Simple::new') {
$body = Email::MIME::Encodings::encode($enc, $body)
- unless !$enc || $enc =~ /^(?:7bit|8bit|binary)\s*$/i;
+ unless !$enc || $enc =~ $NO_ENCODE_RE;
}
$self->{body_raw} = $body;
Modified: trunk/libemail-mime-perl/lib/Email/MIME/Creator.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-mime-perl/lib/Email/MIME/Creator.pm?rev=69215&op=diff
==============================================================================
--- trunk/libemail-mime-perl/lib/Email/MIME/Creator.pm (original)
+++ trunk/libemail-mime-perl/lib/Email/MIME/Creator.pm Mon Feb 21 14:15:35 2011
@@ -2,7 +2,7 @@
use strict;
use vars qw[$VERSION];
-$VERSION = '1.906';
+$VERSION = '1.907';
use base q[Email::Simple::Creator];
use Email::MIME;
Modified: trunk/libemail-mime-perl/lib/Email/MIME/Header.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-mime-perl/lib/Email/MIME/Header.pm?rev=69215&op=diff
==============================================================================
--- trunk/libemail-mime-perl/lib/Email/MIME/Header.pm (original)
+++ trunk/libemail-mime-perl/lib/Email/MIME/Header.pm Mon Feb 21 14:15:35 2011
@@ -3,7 +3,7 @@
package Email::MIME::Header;
use base 'Email::Simple::Header';
-our $VERSION = '1.906';
+our $VERSION = '1.907';
use Encode 1.9801;
Modified: trunk/libemail-mime-perl/lib/Email/MIME/Modifier.pm
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-mime-perl/lib/Email/MIME/Modifier.pm?rev=69215&op=diff
==============================================================================
--- trunk/libemail-mime-perl/lib/Email/MIME/Modifier.pm (original)
+++ trunk/libemail-mime-perl/lib/Email/MIME/Modifier.pm Mon Feb 21 14:15:35 2011
@@ -4,7 +4,7 @@
package Email::MIME::Modifier;
use vars qw[$VERSION];
-$VERSION = '1.906';
+$VERSION = '1.907';
use Email::MIME;
@@ -16,7 +16,7 @@
=head1 VERSION
-version 1.906
+version 1.907
=head1 PERL EMAIL PROJECT
Modified: trunk/libemail-mime-perl/t/encoding.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-mime-perl/t/encoding.t?rev=69215&op=diff
==============================================================================
--- trunk/libemail-mime-perl/t/encoding.t (original)
+++ trunk/libemail-mime-perl/t/encoding.t Mon Feb 21 14:15:35 2011
@@ -1,7 +1,21 @@
-use Test::More tests => 14;
+use Test::More tests => 20;
use_ok 'Email::MIME';
use_ok 'Email::MIME::Modifier';
+
+for my $encode ('7bit', '7bit; foo') {
+ my $email = Email::MIME->new(<<__MESSAGE__);
+Content-Transfer-Encoding: $encode
+Content-Type: text/plain
+
+Hello World!
+I like you!
+__MESSAGE__
+
+ is $email->body, qq[Hello World!\nI like you!\n], 'plain works';
+ is $email->body_raw, qq[Hello World!\nI like you!\n], 'plain raw works';
+ is $email->header('Content-Transfer-Encoding'), $encode, 'plain encoding works';
+}
my $email = Email::MIME->new(<<__MESSAGE__);
Content-Transfer-Encoding: 7bit
Modified: trunk/libemail-mime-perl/t/perl-minver.t
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-mime-perl/t/perl-minver.t?rev=69215&op=diff
==============================================================================
--- trunk/libemail-mime-perl/t/perl-minver.t (original)
+++ trunk/libemail-mime-perl/t/perl-minver.t Mon Feb 21 14:15:35 2011
@@ -10,4 +10,4 @@
plan skip_all => "this test requires Test::MinimumVersion" if $@;
-all_minimum_version_ok(5.008);
+all_minimum_version_ok(5.008005);
More information about the Pkg-perl-cvs-commits
mailing list