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

发布时间：2020-12-16 06:25:55 所属栏目：大数据来源：网络整理

导读：在污点模式下运行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 abo

在污点模式下运行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(@_); };

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

解决方法

Carp::Always适用于污点检查引发的异常.示例输出：

$perl -MCarp::Always -T blah.pl
Insecure dependency in sprintf while running with -T switch at blah.pl line 6
        main::foo() called at blah.pl line 8
        main::bar() called at blah.pl line 10

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!