diff options
Diffstat (limited to 'mail/p5-MIME-Fast')
| -rw-r--r-- | mail/p5-MIME-Fast/Makefile | 1 | ||||
| -rw-r--r-- | mail/p5-MIME-Fast/files/patch-Message.xs | 11 | ||||
| -rw-r--r-- | mail/p5-MIME-Fast/files/patch-MultiPart.xs | 29 | ||||
| -rw-r--r-- | mail/p5-MIME-Fast/files/patch-perl-constants.c | 18 |
4 files changed, 59 insertions, 0 deletions
diff --git a/mail/p5-MIME-Fast/Makefile b/mail/p5-MIME-Fast/Makefile index 9e2f50c7fed7..76e25c6dd41c 100644 --- a/mail/p5-MIME-Fast/Makefile +++ b/mail/p5-MIME-Fast/Makefile @@ -7,6 +7,7 @@ PORTNAME= MIME-Fast PORTVERSION= 1.4 +PORTREVISION= 1 CATEGORIES= mail perl5 MASTER_SITES= ${MASTER_SITE_PERL_CPAN} MASTER_SITE_SUBDIR= MIME diff --git a/mail/p5-MIME-Fast/files/patch-Message.xs b/mail/p5-MIME-Fast/files/patch-Message.xs new file mode 100644 index 000000000000..27ea003aa987 --- /dev/null +++ b/mail/p5-MIME-Fast/files/patch-Message.xs @@ -0,0 +1,11 @@ +--- Fast/Message.xs.orig 2004-12-09 19:17:07.281250000 +0300 ++++ Fast/Message.xs 2004-12-09 19:17:28.281250000 +0300 +@@ -167,7 +167,7 @@ + void + g_mime_message_set_mime_part(message, mime_part) + MIME::Fast::Message message +- MIME::Fast::Part mime_part ++ MIME::Fast::Object mime_part + CODE: + g_mime_message_set_mime_part(message, GMIME_OBJECT (mime_part)); + plist = g_list_remove(plist, mime_part); diff --git a/mail/p5-MIME-Fast/files/patch-MultiPart.xs b/mail/p5-MIME-Fast/files/patch-MultiPart.xs new file mode 100644 index 000000000000..98bcb0ac683e --- /dev/null +++ b/mail/p5-MIME-Fast/files/patch-MultiPart.xs @@ -0,0 +1,29 @@ +--- Fast/MultiPart.xs.orig 2004-12-09 19:33:21.796875000 +0300 ++++ Fast/MultiPart.xs 2004-12-09 19:33:31.859375000 +0300 +@@ -67,7 +67,7 @@ + int index; + CODE: + if (sv_isobject(subpart) && SvROK(subpart)) { +- IV tmp = SvIV((SV*)SvRV(ST(0))); ++ IV tmp = SvIV((SV*)SvRV(subpart)); + mime_object = INT2PTR(MIME__Fast__Object, tmp); + if (gmime_debug) + warn("g_mime_part_remove_subpart: 0x%x, child=0x%x (not add to plist)", mime_multipart, mime_object); +@@ -224,7 +224,7 @@ + GMimeObject *mime_object; + CODE: + if (sv_isobject(subpart) && SvROK(subpart)) { +- IV tmp = SvIV((SV*)SvRV(ST(0))); ++ IV tmp = SvIV((SV*)SvRV(subpart)); + mime_object = INT2PTR(MIME__Fast__Object, tmp); + g_mime_multipart_add_part(mime_multipart, mime_object); + plist = g_list_remove(plist, subpart); +@@ -237,7 +237,7 @@ + GMimeObject *mime_object; + CODE: + if (sv_isobject(subpart) && SvROK(subpart)) { +- IV tmp = SvIV((SV*)SvRV(ST(0))); ++ IV tmp = SvIV((SV*)SvRV(subpart)); + mime_object = INT2PTR(MIME__Fast__Object, tmp); + g_mime_multipart_add_part_at(mime_multipart, mime_object, index); + plist = g_list_remove(plist, subpart); diff --git a/mail/p5-MIME-Fast/files/patch-perl-constants.c b/mail/p5-MIME-Fast/files/patch-perl-constants.c new file mode 100644 index 000000000000..2082ada2b75b --- /dev/null +++ b/mail/p5-MIME-Fast/files/patch-perl-constants.c @@ -0,0 +1,18 @@ +--- cinclude/perl-constants.c.orig 2004-12-09 18:24:15.265625000 +0300 ++++ cinclude/perl-constants.c 2004-12-09 19:02:31.562500000 +0300 +@@ -240,6 +240,15 @@ + return GMIME_MDN_MODIFIER_MAILBOX_TERMINATED; + #endif + break; ++ case 'R': ++ /* gmime-message.h */ ++ if (strEQ(name, "GMIME_RECIPIENT_TYPE_TO")) ++ return GMIME_RECIPIENT_TYPE_TO; ++ else if (strEQ(name, "GMIME_RECIPIENT_TYPE_CC")) ++ return GMIME_RECIPIENT_TYPE_CC; ++ else if (strEQ(name, "GMIME_RECIPIENT_TYPE_CC")) ++ return GMIME_RECIPIENT_TYPE_BCC; ++ break; + } + } + break; |