useradmin/cpan_modules.pl

   1
   2 require 'user-lib.pl';
   3
   4 sub cpan_recommended
   5 {
   6 if (defined(&use_md5)) {
   7         eval "use MD5";
   8         local $has_md5 = !$@;
   9         eval "use Digest::MD5";
  10         local $has_digest_md5 = !$@;
  11         if (!$has_md5 && !$has_digest_md5) {
  12                 return ( "Digest::MD5" );
  13                 }
  14         }
  15 return ( );
  16 }
  17