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