Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Perl: разработка для Web > mod_perl1: модули из PerlModule не попадают в %INC


Автор: ginnie 2.2.2008, 11:11
Уважаемые коллеги!

Ни для кого не секрет, что при разработке обработчиков (handlers) mod_perl приходится использовать специальный модуль перекомпиляции обработчика при его изменении. Я активно использую Apache::StatINC для этих целей (у меня он работает гораздо надежнее, чем Apache::Reload). Имена модулей, загруженных и скомпилированных при помощи use(), require() или do() заносятся в хеш %INC. Apache::StatINC проверяет дату изменения файлов из %INC и перекомпилирует модули, если произошли изменения.
Проблема в том, что модули, скомпилированные при запуске Apache при помощи PerlModule в хеш %INC не попадают, и не перекомпилируются при изменении.
Раньше боролся с этой проблемой простым исключением дорабатываемого модуля из PerlModule в конфигурации сервера разработки. Но вчера возникла новая проблема: начал разрабатывать модуль, в котором функции используются в качестве разных обработчиков.

Код

# фрагмент httpd.conf
PerlModule MySite::MyModule

<Location /loc1>
     SetHandler perl-script
     PerlHandler MySite::MyModule::func1
</Location>

<Location /loc2>
     SetHandler perl-script
     PerlHandler MySite::MyModule::func2
</Location>


Если MyModule убрать из PerlModule, Apache перестает вызывать функции 1 и 2 с сообщением, что они не видны. Пришлось воспользоваться "грязным хаком" (вручную добавляем нужный модуль в %INC):

Код

# фрагмент httpd.conf
<Perl>
$INC{'MySite/MyModule.pm'} = '/path/to/MySite/MyModule.pm';
</Perl>


Может кто предложит нормальное (красивое) решение?

Автор: ginnie 30.12.2008, 14:07
Уважаемые коллеги, если у кого есть возможность проверить на mod_perl1, попробуйте код

Код

<Perl>
#    use IO::Handle;
</Perl>

PerlModule IO::Handle

<Perl>
    print( (grep {$_ eq 'IO/Handle.pm'} keys %INC) ? 'correct' : 'incorrect' , $/);
</Perl>


У меня в исходном варианте дает incorrect. В варианте

Код

<Perl>
    use IO::Handle;
</Perl>

#PerlModule IO::Handle


выдает correct.

Для нормальной загрузки модулей лучше всего использовать загрузочный скрипт startup.pl

Код

PerlRequire startup.pl

Автор: gcc 31.12.2008, 15:12
у меня второй, первый наверное на запуститься на втором apache... могу на втором

Автор: sir_nuf_nuf 19.1.2009, 23:39
ginnie, да я вот тоже  прихожу к мысли, что стоит  заводить startup.pl или Bootstrap.pm =) кому что больше нравится.
Кстати и Catalyst к этому склоняется, используя ApplicationName.pm для таких целей

Автор: tishaishii 24.1.2009, 15:14
Код
PerlSwitches -MIO::Handle -MApache::DBI -I/path ...

Автор: ginnie 26.1.2009, 18:58
tishaishii, Вы уверены, что PerlSwitches есть в mod_perl1  smile 

Автор: tishaishii 27.1.2009, 18:46
Ну чего язык-то показываешь, тебе ж ведь надо. Ан его нету там, а жаль.
А на 2й перейти никак?

Автор: ginnie 28.1.2009, 12:36
Уважаемый tishaishii, приношу свои глубочайшие извинения и прошу не принимать язык на свой счет! Это я дурачился  smile

Перевести систему на mod_perl2 возможности нет.

Странно то, что первые упоминания о таком поведении в Интернет датируются 2001 годом. При этом Stas Bekman (разработчик mod_perl) отвечал, что эта ошибка исправлена, но сейчас уже 2009, а она продолжает воспроизводиться! Мне видится два варианта:
  •  почти никто не пользуется директивой PerlModule и модулем ApacheReload (StatINC) одновременно (когда эта проблема доставляет наибольшие неудобства)
  •  проблема проявляется только у меня, у остальных все работает номально

Автор: tishaishii 29.1.2009, 11:52
Вот нет у меня первого.
А если так:
Код
require Module;#do "Module.pm"
Module->import;

?

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)