tags 422479 patch fixed-upstream
thanks
On Sun, May 06, 2007 at 12:21:35PM +0200, Lucas Nussbaum wrote:
> Package: libemail-mime-perl
> Version: 1.857-1
> Severity: serious
> Justification: FTBFS on i386, very likely to fail everywhere else
> Usertags: grid5000 rebuild
> # Failed test in t/2.t at line 14.
> # got: '+ multipart/related;
> boundary="----=_NextPart_000_0001_01C3D13C.8846CC50"
> # +
> # +
> # '
> # expected: '+ multipart/related;
> boundary="----=_NextPart_000_0001_01C3D13C.8846CC50"
> # + multipart/alternative;
> boundary="----=_NextPart_001_0002_01C3D13C.884B8740"
> # + text/plain; charset="us-ascii"
> # + text/html; charset="us-ascii"
> # + application/octet-stream; name="image001.gif"
> # '
This got broken with libemail-simple-perl 1.999-1. It's CPAN #24858
and was fixed upstream in 1.858. Patch attached.
Cheers,
--
Niko Tyni [EMAIL PROTECTED]
--- lib/Email/MIME.pm 2007/07/18 18:52:58 1.1
+++ lib/Email/MIME.pm 2007/07/18 18:53:05
@@ -101,7 +101,15 @@
# This is a horrible hack, although it's debateable whether it was better
# or worse when it was $self->{body} = shift @bits ... -- rjbs, 2006-11-27
$self->SUPER::body_set(shift @bits) if ($bits[0]||'') !~ /.*:.*/;
- $self->{parts} = [ map { (ref $self)->new($_) } @bits ];
+
+ my @parts;
+ for my $bit (@bits) {
+ $bit =~ s/\A[\n\r]+//smg;
+ my $email = (ref $self)->new($bit);
+ push @parts, $email;
+ }
+
+ $self->{parts} = [EMAIL PROTECTED];
return @{$self->{parts}};
}
