找到perl污点模式错误的来源

Question

在污点模式下运行perl CGI脚本时,我收到表单错误...

Insecure dependency in some_function while running with -T switch at (eval some_line) line some_other_line.
Compilation failed in require at my-script.cgi line 39.
BEGIN failed--compilation aborted at my-script.cgi line 39.

my-script.cgi第39行是perl模块的use语句,它本身不使用eval或some_function,但可能使用另一个库.some_line和some_other_line行号在my-script.cgi或my-script.cgi第39行中使用的库中似乎没有意义.

鉴于此错误,我如何追踪出现污点错误的位置？

我已经尝试设置一个新的芯片信号处理程序,它应该打印一个堆栈跟踪,即

$SIG{ __DIE__ } = sub { require Carp; Carp::confess(@_); };

但这似乎对错误没有影响.也许这是错误的诱捕信号,没有及早发生,或者需要更复杂的东西.

Answer 1

这些天我经常使用Devel::SimpleTrace进行调试，最近它帮助我在使用 Archive::Zip 时发现了一个污点错误。

但是，我不知道它是否适用于您的情况，因为它本质上是设置与您使用的相同的签名处理程序。