On Wed, 23 Feb 2011 12:58:56 -0500
James Ralston <[email protected]> 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) {
_______________________________________________
NOTE: If there is a disclaimer or other legal boilerplate in the above
message, it is NULL AND VOID. You may ignore it.
Visit http://www.mimedefang.org and http://www.roaringpenguin.com
MIMEDefang mailing list [email protected]
http://lists.roaringpenguin.com/mailman/listinfo/mimedefang
