无法找到包CPAN::Debug for @CPAN::Shell::ISA at

Question

我试图使用我的脚本安装一个缺少的模块，因为我不能期望我的用户做任何简单的事情，比如安装缺少的模块。

use strict;
use warnings;
use CPAN::Shell;

sub try_load {
  my $mod = shift;    
  eval("use $mod");

  if ($@) {
        #print "\$@ = $@\n";
        return(0);
  } else {
        return(1);
  }
}

my $module = 'URI::Escape';
if (try_load($module)) {
    print "loaded\n";
} else {
    print "not loaded\n";
    CPAN::Shell->install("URI::Escape");
    # system("ppm install ");
}

但是，对于上面的测试脚本，我总是会收到一个错误：

Can't locate package CPAN::Debug for @CPAN::Shell::ISA at checkmodule.pl line 3.

但当我这么做的时候

my $module = 'CPAN::Debug';
if (try_load($module)) {
    print "loaded\n";
} else {
    print "not loaded\n";
    CPAN::Shell->install("CPAN::Debug");
    # system("ppm install ");
}

我收到了loaded的消息，意思是我有CPAN::Debug？

我做不到：perl -MCPAN -e shell，因为CPAN认为我的GCC 4.6.1版本不够好，想要安装4.6.3，这会破坏我的开发环境和安装在我的用户系统中的工具。我真的很想强迫CPAN使用我的系统版本的MinGW GCC，但我不知道如何使用，但这是另一次。

有谁知道我怎样才能避开标题上面的错误呢？谢谢!

Answer 1

CPAN::Shell只是CPAN模块的一个组件，不打算单独使用

如果您只是将use语句更改为use CPAN，那么一切都应该适合您。