--- Class-Loader-2.03/lib/Class/Loader.pm-	2005-04-28 03:55:33.000000000 +0400
+++ Class-Loader-2.03/lib/Class/Loader.pm	2011-10-06 08:27:38.610931798 +0400
@@ -43,7 +43,8 @@ sub _load {
 
     if ($module) { 
         unless (eval "require $module") { 
-            if ($source{CPAN}) { 
+            use constant USE_CPAN => $ENV{CLASS_LOADER_CPAN};
+            if (USE_CPAN && $source{CPAN}) { 
                 require CPAN; CPAN->import;
                 my $obj = CPAN::Shell->expand ('Module', $module);
                 return unless $obj;