--- 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;