[40002] trunk/dports/perl/p5-mime-tools

[ricci at macports.org]

Revision: 40002
          http://trac.macports.org/changeset/40002
Author:   ricci at macports.org
Date:     2008-09-16 18:37:52 -0700 (Tue, 16 Sep 2008)
Log Message:
-----------
Add a patch to not use the internal binhex decoder as it has bugs.
Add a (n untested) variant to use the internal (and buggy) binhex decoder

Modified Paths:
--------------
    trunk/dports/perl/p5-mime-tools/Portfile

Added Paths:
-----------
    trunk/dports/perl/p5-mime-tools/files/patch-lib-MIME-Parser.pm.nobinhex.diff

Modified: trunk/dports/perl/p5-mime-tools/Portfile
===================================================================
--- trunk/dports/perl/p5-mime-tools/Portfile	2008-09-16 19:51:29 UTC (rev 40001)
+++ trunk/dports/perl/p5-mime-tools/Portfile	2008-09-17 01:37:52 UTC (rev 40002)
@@ -4,6 +4,8 @@
 PortGroup		perl5 1.0
 
 perl5.setup		MIME-tools 5.425
+revision        1
+
 maintainers		ricci openmaintainer
 description		modules for parsing (and creating!) MIME entities
 long_description	MIME-tools is a collection of Perl5 MIME:: modules \
@@ -14,7 +16,8 @@
 checksums		md5 35821ae976e2884f4350dc25d4734655
 platforms		darwin
 
-patchfiles		patch-lib-MIME-Parser.pm.useContentTypeName.diff \
+patchfiles		patch-lib-MIME-Parser.pm.nobinhex.diff \
+				patch-lib-MIME-Parser.pm.useContentTypeName.diff \
 				patch-lib-MIME-Parser.pm.uu_whine.diff	\
 				patch-lib-MIME-Tools.pm.diff
 
@@ -24,3 +27,6 @@
 					port:p5-mime-base64	\
 					port:p5-file-temp
 
+variant doBinHex description {use the (buggy) internal binhex decoder} {
+	patchfiles-delete patch-lib-MIME-Parser.pm.nobinhex.diff
+}

Added: trunk/dports/perl/p5-mime-tools/files/patch-lib-MIME-Parser.pm.nobinhex.diff
===================================================================
--- trunk/dports/perl/p5-mime-tools/files/patch-lib-MIME-Parser.pm.nobinhex.diff	                        (rev 0)
+++ trunk/dports/perl/p5-mime-tools/files/patch-lib-MIME-Parser.pm.nobinhex.diff	2008-09-17 01:37:52 UTC (rev 40002)
@@ -0,0 +1,15 @@
+--- lib/MIME/Parser.pm.orig	2008-03-12 14:00:20.000000000 -0700
++++ lib/MIME/Parser.pm	2008-09-16 18:27:03.000000000 -0700
+@@ -906,6 +906,12 @@
+     }
+     $good or do { $self->debug("no one made the cut"); return 0 };
+ 
++	## 20080916 EH:
++	## ignore binhex types, the binhex decoder doesn't (always) work right
++	if ($how_encoded =~ /binhex/i) {
++		$self->debug("Not decoding binhex attachment due to bugs in the binhex decoder");
++		return 0;
++	}
+     # If a decoder doesn't exist for this type, forget it!
+     my $decoder = MIME::Decoder->new(($how_encoded eq 'uu')?'x-uuencode'
+ 						     :'binhex');
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20080916/496bc729/attachment.html