perl - 使用 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");