[34952] trunk/dports/perl/p5-mime-tools
ricci at macports.org
ricci at macports.org
Wed Mar 12 14:03:23 PDT 2008
Revision: 34952
http://trac.macosforge.org/projects/macports/changeset/34952
Author: ricci at macports.org
Date: 2008-03-12 14:03:22 -0700 (Wed, 12 Mar 2008)
Log Message:
-----------
Add dependency on port:p5-file-temp and patch (patch-lib-MIME-Tools.pm.diff) to let v5.425 work with perl5.8
Add patch to stop whining about "while hunting for uuencode:" unless there is an error while doing so
take maintainership (with openmaintainer)
make port lint happy
Modified Paths:
--------------
trunk/dports/perl/p5-mime-tools/Portfile
Added Paths:
-----------
trunk/dports/perl/p5-mime-tools/files/patch-lib-MIME-Parser.pm.useContentTypeName.diff
trunk/dports/perl/p5-mime-tools/files/patch-lib-MIME-Parser.pm.uu_whine.diff
trunk/dports/perl/p5-mime-tools/files/patch-lib-MIME-Tools.pm.diff
Removed Paths:
-------------
trunk/dports/perl/p5-mime-tools/files/patch-lib-MIME-Parser.pm.useContentTypeName
Modified: trunk/dports/perl/p5-mime-tools/Portfile
===================================================================
--- trunk/dports/perl/p5-mime-tools/Portfile 2008-03-12 19:44:25 UTC (rev 34951)
+++ trunk/dports/perl/p5-mime-tools/Portfile 2008-03-12 21:03:22 UTC (rev 34952)
@@ -1,9 +1,10 @@
# $Id$
+
PortSystem 1.0
PortGroup perl5 1.0
perl5.setup MIME-tools 5.425
-maintainers nomaintainer
+maintainers ricci openmaintainer
description modules for parsing (and creating!) MIME entities
long_description MIME-tools is a collection of Perl5 MIME:: modules \
for parsing, decoding, *and generating* single- or \
@@ -13,10 +14,13 @@
checksums md5 35821ae976e2884f4350dc25d4734655
platforms darwin
-patchfiles patch-lib-MIME-Parser.pm.useContentTypeName
+patchfiles patch-lib-MIME-Parser.pm.useContentTypeName.diff \
+ patch-lib-MIME-Parser.pm.uu_whine.diff \
+ patch-lib-MIME-Tools.pm.diff
# Depends on these Perl modules
depends_lib-append port:p5-io-stringy \
port:p5-mailtools \
- port:p5-mime-base64
+ port:p5-mime-base64 \
+ port:p5-file-temp
Deleted: trunk/dports/perl/p5-mime-tools/files/patch-lib-MIME-Parser.pm.useContentTypeName
===================================================================
--- trunk/dports/perl/p5-mime-tools/files/patch-lib-MIME-Parser.pm.useContentTypeName 2008-03-12 19:44:25 UTC (rev 34951)
+++ trunk/dports/perl/p5-mime-tools/files/patch-lib-MIME-Parser.pm.useContentTypeName 2008-03-12 21:03:22 UTC (rev 34952)
@@ -1,32 +0,0 @@
---- lib/MIME/Parser.pm.orig 2007-05-02 13:04:15.000000000 -0700
-+++ lib/MIME/Parser.pm 2007-05-02 13:06:01.000000000 -0700
-@@ -891,6 +891,7 @@
- sub hunt_for_uuencode {
- my ($self, $ENCODED, $ent) = @_;
- my ($good, $how_encoded);
-+ my $param_name = undef;
- local $_;
- $self->debug("sniffing around for UUENCODE");
-
-@@ -921,6 +922,12 @@
- $top_ent->make_multipart;
- my @parts;
-
-+ ## 20060926EH:
-+ ## capture the 'name' parameter in the Content-Type in case we don't
-+ ## get a 'filename' parameter.
-+ $param_name = $ent->head->mime_attr("content-type.name");
-+
-+
- ### Made the first cut; on to the real stuff:
- $ENCODED->seek(0,0) or die "$ME: can't seek: $!";
- $self->whine("Found a $how_encoded attachment");
-@@ -932,7 +939,7 @@
- my $out = IO::ScalarArray->new(\@bin_data);
- eval { $decoder->decode($ENCODED, $out) }; last if $@;
- my $preamble = $decoder->last_preamble;
-- my $filename = $decoder->last_filename;
-+ my $filename = (defined($decoder->last_filename ) ? $decoder->last_filename : $param_name);
- my $mode = $decoder->last_mode;
-
- ### Get probable type:
Copied: trunk/dports/perl/p5-mime-tools/files/patch-lib-MIME-Parser.pm.useContentTypeName.diff (from rev 34951, trunk/dports/perl/p5-mime-tools/files/patch-lib-MIME-Parser.pm.useContentTypeName)
===================================================================
--- trunk/dports/perl/p5-mime-tools/files/patch-lib-MIME-Parser.pm.useContentTypeName.diff (rev 0)
+++ trunk/dports/perl/p5-mime-tools/files/patch-lib-MIME-Parser.pm.useContentTypeName.diff 2008-03-12 21:03:22 UTC (rev 34952)
@@ -0,0 +1,32 @@
+--- lib/MIME/Parser.pm.orig 2007-05-02 13:04:15.000000000 -0700
++++ lib/MIME/Parser.pm 2007-05-02 13:06:01.000000000 -0700
+@@ -891,6 +891,7 @@
+ sub hunt_for_uuencode {
+ my ($self, $ENCODED, $ent) = @_;
+ my ($good, $how_encoded);
++ my $param_name = undef;
+ local $_;
+ $self->debug("sniffing around for UUENCODE");
+
+@@ -921,6 +922,12 @@
+ $top_ent->make_multipart;
+ my @parts;
+
++ ## 20060926EH:
++ ## capture the 'name' parameter in the Content-Type in case we don't
++ ## get a 'filename' parameter.
++ $param_name = $ent->head->mime_attr("content-type.name");
++
++
+ ### Made the first cut; on to the real stuff:
+ $ENCODED->seek(0,0) or die "$ME: can't seek: $!";
+ $self->whine("Found a $how_encoded attachment");
+@@ -932,7 +939,7 @@
+ my $out = IO::ScalarArray->new(\@bin_data);
+ eval { $decoder->decode($ENCODED, $out) }; last if $@;
+ my $preamble = $decoder->last_preamble;
+- my $filename = $decoder->last_filename;
++ my $filename = (defined($decoder->last_filename ) ? $decoder->last_filename : $param_name);
+ my $mode = $decoder->last_mode;
+
+ ### Get probable type:
Added: trunk/dports/perl/p5-mime-tools/files/patch-lib-MIME-Parser.pm.uu_whine.diff
===================================================================
--- trunk/dports/perl/p5-mime-tools/files/patch-lib-MIME-Parser.pm.uu_whine.diff (rev 0)
+++ trunk/dports/perl/p5-mime-tools/files/patch-lib-MIME-Parser.pm.uu_whine.diff 2008-03-12 21:03:22 UTC (rev 34952)
@@ -0,0 +1,14 @@
+--- lib/MIME/Parser.pm.orig 2007-06-04 17:46:15.000000000 -0700
++++ lib/MIME/Parser.pm 2007-06-04 17:47:11.000000000 -0700
+@@ -856,7 +856,10 @@
+ return 1;
+ }
+ else { ### boojum
+- $self->whine("while hunting for uuencode: $@");
++ if (defined($@) && $@) {
++ ## 20070604EH: only whine if we have something to whine about
++ $self->whine("while hunting for uuencode: $@");
++ }
+ $ENCODED->seek(0,0) or die "$ME: can't seek: $!";
+ }
+ }
Added: trunk/dports/perl/p5-mime-tools/files/patch-lib-MIME-Tools.pm.diff
===================================================================
--- trunk/dports/perl/p5-mime-tools/files/patch-lib-MIME-Tools.pm.diff (rev 0)
+++ trunk/dports/perl/p5-mime-tools/files/patch-lib-MIME-Tools.pm.diff 2008-03-12 21:03:22 UTC (rev 34952)
@@ -0,0 +1,13 @@
+--- lib/MIME/Tools.pm 2007-11-17 08:00:06.000000000 -0800
++++ lib/MIME/Tools.pm 2008-03-07 13:54:32.000000000 -0800
+@@ -11,7 +11,9 @@
+
+ require Exporter;
+ use IO::File;
+-use File::Temp ();
++# use File::Temp ();
++use Config;
++require "$Config{'vendorlib'}/File/Temp.pm";
+ use Carp;
+
+ $ME = "MIME-tools";
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20080312/ea439f34/attachment-0001.html
More information about the macports-changes
mailing list