使用CPAN安装perl – force模块

我知道在命令提示符下使用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

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

解决方法

只要你真的知道你在做什么：

eval "use Filesys::diskSpace; 1" or do {
    CPAN::Shell->force("install","Filesys::diskSpace");
};

即使成功使用内置函数也不返回任何有用的东西,因此必须在字符串eval中包含“; 1”.