在 PerlRun 下运行 Perl CGI 脚本时出错

Question

我正在尝试使用 PerlRun 在 mod_perl 2.0 下运行 Perl CGI Web 应用程序。对脚本进行一些简单的更改后，一切似乎都可以正常工作。

但是，Apache error_log 变得越来越大！快。

每个请求有很多很多错误，但它们有两种类型：

1)

Constant subroutine ModPerl::ROOT::ModPerl::PerlRun::var_www_html_myapp_main_2epl::RC_SERVICE_UNAVAILABLE redefined at /usr/lib/perl5/vendor_perl/5.8.8/i386-linux-thread-multi/ModPerl/Util.pm line 69.

2)

Prototype mismatch: sub ModPerl::ROOT::ModPerl::PerlRun::var_www_html_myapp_main_2epl::RC_SWITCHING_PROTOCOLS: none vs () at /var/www/html/myapp/main.pl line 1054

这是 main.pl 的第 1054 行：

use LWP::Simple qw(!head);

我怎样才能摆脱这两种类型的错误？

Answer 1

您的两条错误消息都与 LWP::Simple 有关。 LWP::Simple 导出 HTTP 常量，这会导致重新定义的警告。当您使用 LWP::Simple 时，请尝试仅包含您需要使用的函数 LWP::Simple qw(get, getstore);您可能仍然会在这些函数上看到原型不匹配错误。