--- MIME-Lite-3.028/lib/MIME/Lite.pm-	2011-11-09 05:48:12.000000000 +0400
+++ MIME-Lite-3.028/lib/MIME/Lite.pm	2011-11-13 10:16:05.776206160 +0400
@@ -437,14 +437,16 @@ my @FieldOrder;
 
 ### See if we have File::Basename
 my $HaveFileBasename = 0;
-if ( eval "require File::Basename" ) {    # not affected by $PARANOID, core Perl
+if ( require File::Basename ) {    # not affected by $PARANOID, core Perl
     $HaveFileBasename = 1;
     push @Uses, "F$File::Basename::VERSION";
 }
 
 ### See if we have/want MIME::Types
 my $HaveMimeTypes = 0;
-if ( !$PARANOID and eval "require MIME::Types; MIME::Types->VERSION(1.28);" ) {
+if ( !$PARANOID ) {
+    require MIME::Types;
+    MIME::Types->VERSION(1.28);
     $HaveMimeTypes = 1;
     push @Uses, "T$MIME::Types::VERSION";
 }
@@ -536,23 +538,20 @@ BEGIN {
 #------------------------------
 
 
-if ( !$PARANOID and eval "require Mail::Address" ) {
+if ( !$PARANOID ) {
+    require Mail::Address;
     push @Uses, "A$Mail::Address::VERSION";
-    eval q{
-                sub extract_full_addrs {
+                *extract_full_addrs = sub {
                     my @ret=map { $_->format } Mail::Address->parse($_[0]);
                     return wantarray ? @ret : $ret[0]
-                }
-                sub extract_only_addrs {
+                };
+                *extract_only_addrs = sub {
                     my @ret=map { $_->address } Mail::Address->parse($_[0]);
                     return wantarray ? @ret : $ret[0]
-                }
-    };    ### q
+                };
 } else {
-    eval q{
         *extract_full_addrs=*my_extract_full_addrs;
         *extract_only_addrs=*my_extract_only_addrs;
-    };    ### q
 }    ### if
 
 #==============================
@@ -567,12 +566,12 @@ if ( !$PARANOID and eval "require Mail::
 # Encode the given string using BASE64.
 # Unless paranoid, we try to load the real code before supplying our own.
 
-if ( !$PARANOID and eval "require MIME::Base64" ) {
+if ( !$PARANOID ) {
+    require MIME::Base64;
     import MIME::Base64 qw(encode_base64);
     push @Uses, "B$MIME::Base64::VERSION";
 } else {
-    eval q{
-        sub encode_base64 {
+        *encode_base64 = sub {
             my $res = "";
             my $eol = "\n";
 
@@ -590,8 +589,7 @@ if ( !$PARANOID and eval "require MIME::
             ### Break encoded string into lines of no more than 76 characters each:
             $res =~ s/(.{1,76})/$1$eol/g if (length $eol);
             return $res;
-        } ### sub
-  }    ### q
+        };
 }    ### if
 
 #------------------------------
@@ -605,12 +603,12 @@ if ( !$PARANOID and eval "require MIME::
 #
 # Unless paranoid, we try to load the real code before supplying our own.
 
-if ( !$PARANOID and eval "require MIME::QuotedPrint" ) {
+if ( !$PARANOID ) {
+    require MIME::QuotedPrint;
     import MIME::QuotedPrint qw(encode_qp);
     push @Uses, "Q$MIME::QuotedPrint::VERSION";
 } else {
-    eval q{
-        sub encode_qp {
+        *encode_qp = sub {
             my $res = shift;
             local($_);
             $res =~ s/([^ \t\n!-<>-~])/sprintf("=%02X", ord($1))/eg;  ### rule #2,#3
@@ -624,8 +622,7 @@ if ( !$PARANOID and eval "require MIME::
             $brokenlines .= "$1=\n" while $res =~ s/^(.{70}([^=]{2})?)//; ### 70 was 74
             $brokenlines =~ s/=\n$// unless length $res;
             "$brokenlines$res";
-        } ### sub
-  }    ### q
+        };
 }    ### if