From ca84787578d9ce25e5b81ab71c7bb57234308361 Mon Sep 17 00:00:00 2001

From: Alexey Gladkov <legion@altlinux.org>

Date: Sat, 25 Dec 2021 17:24:11 +0300

Subject: Make PublicInbox::MIME unloadable and make perl.req happy

Signed-off-by: Alexey Gladkov <legion@altlinux.org>

---

 lib/PublicInbox/MIME.pm | 7 ++-----

 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/lib/PublicInbox/MIME.pm b/lib/PublicInbox/MIME.pm

index 831a3d19..5303bad9 100644

--- a/lib/PublicInbox/MIME.pm

+++ b/lib/PublicInbox/MIME.pm

@@ -27,12 +27,10 @@

 package PublicInbox::MIME;

 use strict;

 use warnings;

-use base qw(Email::MIME);

-use Email::MIME::ContentType;

+use Email::Simple;

 use PublicInbox::MsgIter ();

 $Email::MIME::ContentType::STRICT_PARAMS = 0;

-if ($Email::MIME::VERSION <= 1.937) {

 sub parts_multipart {

   my $self     = shift;

   my $boundary = $self->{ct}->{attributes}->{boundary};

@@ -105,8 +103,7 @@ sub parts_multipart {

   return @{ $self->{parts} };

 }

-}

 no warnings 'once';

 *each_part = \&PublicInbox::MsgIter::em_each_part;

-1;

+0;

-- 

2.25.4