[Mimedefang] MIME::Tools 5.501 has been released

[David F. Skoll]

On Wed, 23 Feb 2011 12:58:56 -0500
James Ralston <qralston+ml.mimedefang at andrew.cmu.edu> wrote:

[...]

> But: if you release a new version of MIMEDefang that requires perl
> 5.10,

To be clear: We have no plans to do that. :)  We still support CanIt on
RHEL4, so we're as stuck as you are.

Also, the unit-test failure in MIME::Tools 5.501 on Perl 5.8 is pretty
harmless.  The code itself works fine [*] on Perl 5.8.  Here's a
patch that silences the test failure.

Regards,

David.

[*] You get different, but equally safe, answers from
MIME::Parser::filer->exorcise_filename() on Perl 5.8 vs Perl 5.10.

=================================================================
diff --git a/t/Filer.t b/t/Filer.t
index 0b5285d..dd151de 100644
--- a/t/Filer.t
+++ b/t/Filer.t
@@ -3,9 +3,21 @@ use strict;
 use warnings;
 use Test::More tests => 17;
 
+use Config;
+
 binmode(STDOUT, ":utf8");
 binmode(STDERR, ":utf8");
 
+# Perl < 5.10.0 did not handle Unicode at all...
+my $wookie;
+
+if ($Config{'PERL_REVISION'} == 5 &&
+    $Config{'PERL_VERSION'} <= 8) {
+	$wookie = 'wookie%D0.doc';
+} else {
+	$wookie = 'wookie%42D.doc';
+}
+
 BEGIN {
 	use_ok('MIME::Parser::Filer');
 }
@@ -23,7 +35,7 @@ BEGIN {
 		'..'              => '...dat',
 		'index[1].html'   => '.html',
 		" wookie\x{f8}.doc" => "wookie%F8.doc",
-		" wookie\x{042d}.doc" => "wookie%42D.doc",
+		" wookie\x{042d}.doc" => $wookie,
 	);
 
 	foreach my $name (keys %evil) {