I found a workaround for #395268 - it doesn't really address the
underlying problem but it allows to build libmail-mboxparser-perl
again.

The workaround sets "oldparser => 1" in libmail-mboxparser-perl's
tests (t/3_while.t and t/7_attach.t), therefore avoiding to use
libmail-mbox-messageparser-perl. - Find the patch attached.

(I've played around quite some time with
Mail::Mbox::MessageParser::Grep but didn't come up with any working
solution ...)

BTW: #381075 looks similar ...

HTH,
gregor
-- 
 .''`.   http://info.comodo.priv.at/ | gpg key ID: 0x00F3CFE4
 : :' :  debian: the universal operating system - http://www.debian.org/
 `. `'   member of https://www.vibe.at/ | how to reply: http://got.to/quote/
   `-    NP: Queen: Spread Your Wings
diff -u libmail-mboxparser-perl-0.54/debian/changelog libmail-mboxparser-perl-0.54/debian/changelog
--- libmail-mboxparser-perl-0.54/debian/changelog
+++ libmail-mboxparser-perl-0.54/debian/changelog
@@ -1,3 +1,9 @@
+libmail-mboxparser-perl (0.54-1.1) unstable; urgency=low
+
+  * Turn off usage of Mail::Mbox::MessageParser in tests (closes: #395268).
+
+ -- gregor herrmann <[EMAIL PROTECTED]>  Sat, 16 Dec 2006 14:08:00 +0100
+
 libmail-mboxparser-perl (0.54-1) unstable; urgency=low
 
   * New upstream release.
only in patch2:
unchanged:
--- libmail-mboxparser-perl-0.54.orig/t/7_attach.t
+++ libmail-mboxparser-perl-0.54/t/7_attach.t
@@ -11,7 +11,8 @@
 my $mb      = Mail::MboxParser->new($src, 
                 parseropts => { cache_file_name => 
                                     File::Spec->catfile(qw/t cache/),
-                                enable_cache    => 1, });
+                                enable_cache    => 1, }, 
+                oldparser => 1);
 
 # 1 - 9
 my $c = 0;
only in patch2:
unchanged:
--- libmail-mboxparser-perl-0.54.orig/t/3_while.t
+++ libmail-mboxparser-perl-0.54/t/3_while.t
@@ -8,7 +8,7 @@
 
 BEGIN { plan tests => 28 };
 
-my $mb    = Mail::MboxParser->new($src);
+my $mb    = Mail::MboxParser->new($src, oldparser => 1);
 my @mails; 
 
 while (my $msg = $mb->next_message) {

Attachment: signature.asc
Description: Digital signature

Reply via email to