找到Perl污染模式错误的根源

如何解决找到Perl污染模式错误的根源

| 在异味模式下运行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，但是大概使用了另一个库。在my-script.cgi或在my-script.cgi的第39行使用的库中，some_line和some_other_line行号似乎都没有意义。 给定此错误，我如何跟踪异味发生的位置？ 我尝试设置一个新的die信号处理程序，该处理程序应该打印堆栈跟踪，即

$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

    ,        这些天，我经常使用Devel :: SimpleTrace进行调试，最近它帮助我在使用Archive :: Zip时发现了污点错误。 但是，我不知道它是否适合您的情况，因为它实际上是在设置与您使用的相同的sig处理程序。