MIME-tools-5.417/README:

    MIME-tools requires MIME::Base64 and MIME::QuotedPrint.  It will work

    with versions as old as 2.20, but some tests (when you do "make test")

    will fail for MIME::QuotedPrint older than 3.03.

--- MIME-tools-5.417/lib/MIME/Decoder/QuotedPrint.pm-	2005-01-13 22:23:15 +0300

+++ MIME-tools-5.417/lib/MIME/Decoder/QuotedPrint.pm	2005-05-12 14:21:11 +0400

@@ -54,7 +54,7 @@ $Revision: 1.17 $ $Date: 2005/01/13 19:2

 use vars qw(@ISA $VERSION);

 use MIME::Decoder;

-use MIME::QuotedPrint;

+use MIME::QuotedPrint 3.03;

 @ISA = qw(MIME::Decoder);

@@ -62,27 +62,6 @@ use MIME::QuotedPrint;

 $VERSION = "5.417";

 #------------------------------

-# If we have MIME::QuotedPrint 3.03 or later, use the three-argument

-# version.  If we have an earlier version of MIME::QuotedPrint, we

-# may get the wrong results.  However, on some systems (RH Linux,

-# for example), MIME::QuotedPrint is part of the Perl package and

-# upgrading it separately breaks their magic auto-update tools.

-# We are supporting older versions of MIME::QuotedPrint even though

-# they may give incorrect results simply because it's too painful

-# for many people to upgrade.

-

-# The following code is horrible.  I know.  Beat me up. --dfs

-BEGIN {

-    if (!defined(&encode_qp_threearg)) {

-        if ($::MIME::QuotedPrint::VERSION >= 3.03) {

-            eval 'sub encode_qp_threearg ( $$$ ) { encode_qp(shift, shift, shift); }';

-        } else {

-            eval 'sub encode_qp_threearg ( $$$ ) { encode_qp(shift); }';

-        }

-    }

-}

-

-#------------------------------

 #

 # encode_qp_really STRING TEXTUAL_TYPE_FLAG

 #

@@ -92,7 +71,7 @@ BEGIN {

 # grow beyond 76 characters!

 #

 sub encode_qp_really {

-    my $enc = encode_qp_threearg(shift, undef, not shift);

+    my $enc = encode_qp(shift, undef, not shift);

     if (length($enc) < 74) {

 	$enc =~ s/^\.\n/=2E\n/g;      # force encoding of /^\.$/

 	$enc =~ s/^From /=46rom /g;   # force encoding of /^From /

--- MIME-tools-5.417/lib/MIME/Words.pm-	2005-01-13 22:23:15 +0300

+++ MIME-tools-5.417/lib/MIME/Words.pm	2005-05-12 14:18:01 +0400

@@ -83,7 +83,6 @@ Exporter::export_ok_tags('all');

 ### Other modules:

 use MIME::Base64;

-use MIME::QuotedPrint;

--- MIME-tools-5.417/Makefile.PL-	2004-12-02 22:38:21 +0300

+++ MIME-tools-5.417/Makefile.PL	2005-05-12 14:11:00 +0400

@@ -8,8 +8,7 @@ my %modules =

  'Mail::Header' =>   { min_version => "1.01" },

  'Mail::Internet' => { min_version => "1.0203" },

  'Mail::Field' =>    { min_version => "1.05" },

- 'MIME::Base64' =>   { min_version => "2.20",

-		       rec_version => "3.03" },

+ 'MIME::QuotedPrint' => { min_version => "3.03" },

  'IO::Stringy' =>    { min_version => "1.211" },

  'File::Spec' =>     { min_version => "0.6" },

  'File::Path' =>     { min_version => "1" }

@@ -47,7 +46,7 @@ foreach $m (sort keys %modules) {

     }

     if (defined($rec_ver) and $foundit and !$foundrec) {

 	print "\n   *** Warning: We can work with version $min_ver of $m, but\n   *** we recommend that you upgrade to version $rec_ver.\n\n";

-	if ($m eq "MIME::Base64") {

+	if ($m eq "MIME::QuotedPrint") {

 	    print "   *** Note that if you type 'make test', then tests\n   *** 4, 5 and 7-11 of t/Misc.t may fail because of the old version\n   *** of $m\n";

 	}

     }

@@ -71,7 +70,7 @@ WriteMakefile(

       PREREQ_PM    => {"Mail::Header"      => 1.01,

 		       "Mail::Internet"    => 1.0203,

 		       "Mail::Field"       => 1.05,

-	               "MIME::Base64"      => 2.20,

+	               "MIME::QuotedPrint" => 3.03, 

 		       "IO::Stringy"       => 1.211,

 		       "File::Spec"        => 0.6,

 		       "File::Path"        => 1,

--- MIME-tools-5.417/META.yml-	2005-01-21 00:21:10 +0300

+++ MIME-tools-5.417/META.yml	2005-05-12 14:22:09 +0400

@@ -11,7 +11,7 @@ requires:

     Mail::Field:                   1.05

     Mail::Header:                  1.01

     Mail::Internet:                1.0203

-    MIME::Base64:                  2.2

+    MIME::QuotedPrint:             3.03

 distribution_type: module

 generated_by: ExtUtils::MakeMaker version 6.17