Ошибки запуска сценариев Perl CGI под PerlRun

Question

Я пытаюсь запустить веб-приложение Perl CGI под mod_perl 2.0, используя PerlRun.После внесения нескольких простых изменений в сценарии все, кажется, работает.

Тем не менее, ошибка 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

Это строка 1054 файла main.pl:

use LWP::Simple qw(!head);

Как мне избавиться от этих двух типов ошибок?

Answer 1

Оба ваших сообщения об ошибках связаны с LWP :: Simple. LWP :: Simple экспортирует константы HTTP, это вызывает переопределенные предупреждения. Когда вы используете LWP :: Simple, попробуйте включить только те функции, которые вам нужны, используйте LWP :: Simple qw (get, getstore); Вы все еще можете увидеть ошибки несоответствия прототипа в этих функциях.