用CPAN安装强制模块

Question

我知道在命令提示符下使用CPAN安装"强制"模块很容易.我试图通过脚本实现相同的目标:

use CPAN;
eval "use Filesys::DiskSpace" or do {
    CPAN::install("Filesys::DiskSpace");
};

有没有办法在代码中添加'force'选项？编译模块时出现以下错误:

  make test had returned bad status, won't install without force

警告可能不严重,所以我想继续安装.谢谢.

Answer 1

看起来你需要实例化CPAN一个变量并force()在其上调用方法

my $cpan = CPAN->new;
$cpan->force();
$cpan->install("Filesys::DiskSpace");