perl - Inline::Python 的不安全依赖

Question

运行 Inline::Python 时，什么可以解释此编译时错误消息在 -T 模式？

Insecure dependency in open while running with -T switch at /usr/local/lib/perl/5.14.2/Inline/Python.pm line 193.

第 193 行是 Inline::Python打开 $o->{API}{location} ，我将其视为“内联目录”。

当然，我使用了所需的选项:

use constant _INLINE_DIR_ => '/var/myapp/inline';
use Inline Config => UNTAINT         => 1,
                     NO_UNTAINT_WARN => 1,
                     DIRECTORY       => _INLINE_DIR_;

我已经确定 /var/myapp/inline并且里面的所有东西都是所有人都可以写的，显然包括root和应用程序的用户 setuid 'ed 在运行时。

相同的脚本在我的计算机上运行没有问题，无论我是否以 root 身份启动它，运行 Inline 0.50 Inline::Python 0.43，但是当我尝试在使用相同版本 Inline::Python 的服务器上运行它时给我这个错误以及 Inline 的 0.49 或 0.55 版.

Answer 1

由于这在不同的环境中是不同的，我敢打赌，不知何故有一个环境变量，要么Inline或 Inline::Python在执行 UNTAINT 请求的步骤之前正在阅读配置参数。

(与评论相反，我认为文件权限不会导致此消息，只有对命令行参数或环境变量的不安全依赖)

鉴于此，我将通过强制清除环境然后仅添加您知道需要的那些环境变量来启动您的脚本:

%ENV = ();
$ENV{'PATH'} = '/bin:/usr/bin:/usr/local/bin';  # Or whatever's appropriate
$ENV{'PYTHONPATH'} = '/usr/local/lib/python';   # Optional, if appropriate
# ... etc ...