r47096 - in /trunk/libemail-mime-perl: Changes META.yml debian/changelog lib/Email/MIME.pm lib/Email/MIME/Creator.pm lib/Email/MIME/Header.pm lib/Email/MIME/Modifier.pm
jawnsy-guest at users.alioth.debian.org
jawnsy-guest at users.alioth.debian.org
Fri Nov 13 03:52:45 UTC 2009
Author: jawnsy-guest
Date: Fri Nov 13 03:52:39 2009
New Revision: 47096
URL: http://svn.debian.org/wsvn/pkg-perl/?sc=1&rev=47096
Log:
New upstream release
Modified:
trunk/libemail-mime-perl/Changes
trunk/libemail-mime-perl/META.yml
trunk/libemail-mime-perl/debian/changelog
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
Modified: trunk/libemail-mime-perl/Changes
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-mime-perl/Changes?rev=47096&op=diff
==============================================================================
--- trunk/libemail-mime-perl/Changes (original)
+++ trunk/libemail-mime-perl/Changes Fri Nov 13 03:52:39 2009
@@ -1,4 +1,8 @@
Revision history for Perl extension Email::MIME.
+
+1.902 2009-11-11
+ allow for padding spaces in the Content-Transfer-Encoding header
+ (Geraint Edwards)
1.901 2009-11-05
bump up Email::MIME::Encodings version required
Modified: trunk/libemail-mime-perl/META.yml
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-mime-perl/META.yml?rev=47096&op=diff
==============================================================================
--- trunk/libemail-mime-perl/META.yml (original)
+++ trunk/libemail-mime-perl/META.yml Fri Nov 13 03:52:39 2009
@@ -1,6 +1,6 @@
--- #YAML:1.0
name: Email-MIME
-version: 1.901
+version: 1.902
abstract: ~
author: []
license: perl
Modified: trunk/libemail-mime-perl/debian/changelog
URL: http://svn.debian.org/wsvn/pkg-perl/trunk/libemail-mime-perl/debian/changelog?rev=47096&op=diff
==============================================================================
--- trunk/libemail-mime-perl/debian/changelog (original)
+++ trunk/libemail-mime-perl/debian/changelog Fri Nov 13 03:52:39 2009
@@ -1,3 +1,9 @@
+libemail-mime-perl (1.902-1) UNRELEASED; urgency=low
+
+ * New upstream release
+
+ -- Jonathan Yu <jawnsy at cpan.org> Thu, 12 Nov 2009 19:27:09 -0500
+
libemail-mime-perl (1.901-1) unstable; urgency=low
[ Jonathan Yu ]
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=47096&op=diff
==============================================================================
--- trunk/libemail-mime-perl/lib/Email/MIME.pm (original)
+++ trunk/libemail-mime-perl/lib/Email/MIME.pm Fri Nov 13 03:52:39 2009
@@ -21,7 +21,7 @@
=head1 VERSION
-version 1.901
+version 1.902
=head1 SYNOPSIS
@@ -111,7 +111,7 @@
=cut
-our $VERSION = '1.901';
+our $VERSION = '1.902';
use vars qw[$CREATOR];
$CREATOR = 'Email::MIME::Creator';
@@ -288,16 +288,19 @@
sub body {
my $self = shift;
my $body = $self->SUPER::body;
- my $cte = $self->header("Content-Transfer-Encoding");
+ my $cte = $self->header("Content-Transfer-Encoding") || '';
+
+ $cte =~ s/\A\s+//;
+ $cte =~ s/\s+\z//;
+ $cte =~ s/;.+//; # For S/MIME, etc.
+
return $body unless $cte;
- if (!$self->force_decode_hook and $cte =~ /^7bit|8bit|binary/i) {
+
+ if (!$self->force_decode_hook and $cte =~ /\A(?:7bit|8bit|binary)\z/i) {
return $body;
}
$body = $self->decode_hook($body) if $self->can("decode_hook");
-
- # For S/MIME, etc.
- $cte =~ s/;.+//;
$body = Email::MIME::Encodings::decode($cte, $body);
return $body;
@@ -547,7 +550,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)$/i;
+ unless !$enc || $enc =~ /^(?:7bit|8bit|binary)\s*$/i;
}
$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=47096&op=diff
==============================================================================
--- trunk/libemail-mime-perl/lib/Email/MIME/Creator.pm (original)
+++ trunk/libemail-mime-perl/lib/Email/MIME/Creator.pm Fri Nov 13 03:52:39 2009
@@ -2,7 +2,7 @@
use strict;
use vars qw[$VERSION];
-$VERSION = '1.901';
+$VERSION = '1.902';
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=47096&op=diff
==============================================================================
--- trunk/libemail-mime-perl/lib/Email/MIME/Header.pm (original)
+++ trunk/libemail-mime-perl/lib/Email/MIME/Header.pm Fri Nov 13 03:52:39 2009
@@ -3,7 +3,7 @@
package Email::MIME::Header;
use base 'Email::Simple::Header';
-our $VERSION = '1.901';
+our $VERSION = '1.902';
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=47096&op=diff
==============================================================================
--- trunk/libemail-mime-perl/lib/Email/MIME/Modifier.pm (original)
+++ trunk/libemail-mime-perl/lib/Email/MIME/Modifier.pm Fri Nov 13 03:52:39 2009
@@ -4,7 +4,7 @@
package Email::MIME::Modifier;
use vars qw[$VERSION];
-$VERSION = '1.901';
+$VERSION = '1.902';
use Email::MIME;
@@ -16,7 +16,7 @@
=head1 VERSION
-version 1.901
+version 1.902
=head1 PERL EMAIL PROJECT
More information about the Pkg-perl-cvs-commits
mailing list