Возникла странная проблема с require. Когда из консоли выполняю тестовую функцию то все отлично. Под апачем выдает ошибку Cant locate Docia/Tools/Test/TestAAA.pm in @INC. Вот скрипт:







Я не могу использовать use, так как сайт запускается на линуксе и под виндой. Под виндой надо подключать Win32 модули которых на линуксе нет. Поэтому я работу с ними вынес в Docia::Tools::Test::TestAAA и подключаю его через require если это винда. Но вот под апачем проблема. Помогите пожалуйста разобраться!

удалил, невнимательно прочитал.

Добавлено через 4 минуты и 53 секунды
Попробуйте в use lib относительный путь указать. Где лежат модули и какой home у апача?

Это сообщение отредактировал(а) alezzz - 1.10.2012, 16:44

Возможно дело в переменной окружения PERL5LIB которую апач не передает, или в том что под апачем путь к скрипту и проету различается, насколько я знаю в винде для апача часто делают отдельный диск.
Посмотрите массив @INC, в нем лежат все пути, по которым perl ищет модули, и найдите, где ошибка.

Это сообщение отредактировал(а) Logo - 1.10.2012, 21:50

Позвольте мне вкратце описать архитектуру. Имеется апач+мод_перл. Все запросы обрабатывает controller.pl. Запрос включает в себя команду по которой определяется пакет и функция, после чего эта функция выполняется. Все скирпты расположены в папке /bb_projekt/docia/perl/lib, на которую контроллер ссылается в первой строке: use lib ("/bb_projekt/docia/perl/lib"); Тут подключаются многие модули проекта и все работает хорошо. Но вот если в каком-либо обработчике я посмотрю @INC, то в нем уже нет пути к моим библиотекам, вместо него просто точка (.)
Ну и понятно что require не может найти нужный модуль. Куда могла дется библиотека из инка? Не понимаю...
Вот краткая иллюстрация работы:



Далее, допустим команда обрабатывается в Docia::MyModule::func();



Уже и не знаю что думать (

Может дело в eval? Почему бы не обойтись без него

Без eval нельзя. Там не ссылки на функции, а просто строки:

Просто строки тоже должны работать, во всяком случае с no strict 'refs';

Кто же стрикт отключает? Не вариант.

При необходимости все отключают. Никто ведь не заставляет отключать его во всём скрипте, обычно это делают так

В любом случае стоит проверить решает ли это проблему.

eval не нужен

Либо так, как описал Pfailed.


Точка означает рабочую директорию


Странно...  Посмотрите, где изменяется значение @INC. С помощью команды отладчика w или модулей вроде Tie::Watch, Tie::Trace.

Logo, ваш вариант работает. Действительно, можно обойтись без eval. Это само по себе хорошо, никогда его не любил. Но вот в работе require это ничего не изменило. Инк дальше теряет либу.

Так что я пошел другим путем, и таки опять через eval: eval "require Win32" в контроллере.
По крайней мере это не убивает сервер под линуксом и помогает под виндой. 

Но я нашел куда прописать либу чтоб она была постоянно доступна. Это startup.pl который запускается через PerlRequire "c:/mod-perl/Apache2/conf/startup.pl" в perl.conf который в свою очередь прописан в конфиге апача:

<IfModule mod_perl.c>
    Include conf/perl.conf
</IfModule>

Когда я добавил туда библиотеку, INC стал таким как надо. Но... в продукции мне править глобальные настройки вебсерверов не дадут без крайней необходимости. Так что буду жить с eval'ным костылем.

Спасибо за содействие, закрываю тему.

Я и не говорил, что это поможет от изменения @INC в программе:)



Когда заранее известен код, который нужно выполнить, используйте блочный eval

Это работает быстрее (не нужно заново вызвать компилятор) и помогает от ошибок компиляции в eval блоке.

Спасибо за подсказку!