Биллинговая система Nodeny
28 Марта 2024, 18:17:56 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Прекращена поддержка версии Nodeny 49
 
   Начало   Помощь Поиск Войти Регистрация  
Страниц: [1]
  Печать  
Автор Тема: FreeBSD 10.4, perl 5.26.2 -> Лыжи не едут с самого начала :(  (Прочитано 5435 раз)
Sidius
Постоялец
***

Карма: 0
Offline Offline

Сообщений: 130


Просмотр профиля
« : 26 Октября 2018, 00:52:41 »

Я понимаю что может что-то идеологически поменялось в перле НО:
Код:
# perl -v

This is perl 5, version 26, subversion 2 (v5.26.2) built for amd64-freebsd-thread-multi

...

# perl noserver.pl -v
Can't locate nosat.pm in @INC (you may need to install the nosat module) (@INC contains: /usr/local/lib/perl5/site_perl/mach/5.26 /usr/local/lib/perl5/site_perl /usr/local/lib/perl5/5.26/mach /usr/local/lib/perl5/5.26) at noserver.pl line 22.
BEGIN failed--compilation aborted at noserver.pl line 25.

# ls nosat.pm
nosat.pm
#

Что я делаю не так? Строит глазки

На соседней машине с 5.24.3 - все работает как должно. Тут новая машинка - и на тебе Грустный
Записан
Sidius
Постоялец
***

Карма: 0
Offline Offline

Сообщений: 130


Просмотр профиля
« Ответ #1 : 26 Октября 2018, 01:10:14 »

Разобрался.

Начиная с 5.26.2 перл убрал "." в @INC

Решается добавлением
export PERL_USE_UNSAFE_INC=1
в go.sh

Записан
Cell
NoDeny
Спец
*

Карма: 52
Offline Offline

Сообщений: 1444



Просмотр профиля
« Ответ #2 : 26 Октября 2018, 09:49:14 »

офф.
Меня всегда умиляло отсутствие обратной совместимости версий при обновлении софта.
Сука, чем думают эти люди? Как будто у них жопа вместо головы.
Записан
Sidius
Постоялец
***

Карма: 0
Offline Offline

Сообщений: 130


Просмотр профиля
« Ответ #3 : 26 Октября 2018, 10:28:33 »

Плюсану за это. Взяли себе яйцеголовые пиндосы решили чтоб убрать что-то а всем сиди переделывай скрипты. Придурки.
Записан
Art1
NoDeny
Пользователь
*

Карма: 0
Offline Offline

Сообщений: 84


Просмотр профиля
« Ответ #4 : 10 Января 2019, 12:26:49 »

В go.sh вписал export PERL_USE_UNSAFE_INC=1

FreeBSD 11.2-RELEASE-p7
perl 5.28.1

go.sh
Цитировать
#!/bin/sh

export PERL_USE_UNSAFE_INC=1

prg="nice -n -15 perl $1.pl"

while true
do
 ${prg}
 rez=$?
 case $rez in
         0 )  sleep 2 ;;
         * )  break ;;
 esac
done

exit $rez

Цитировать
root@bras4:/usr/local/nodeny # perl -v

This is perl 5, version 28, subversion 1 (v5.28.1) built for amd64-freebsd-thread-multi

root@bras4:/usr/local/nodeny # perl noserver.pl -v
Can't locate nosat.pm in @INC (you may need to install the nosat module) (@INC contains: /usr/local/lib/perl5/site_perl/mach/5.28 /usr/local/lib/perl5/site_perl /usr/local/lib/perl5/5.28/mach /usr/local/lib/perl5/5.28) at noserver.pl line 22.
BEGIN failed--compilation aborted at noserver.pl line 25.

как побороть? какие могут быть варианты
Записан
Cell
NoDeny
Спец
*

Карма: 52
Offline Offline

Сообщений: 1444



Просмотр профиля
« Ответ #5 : 10 Января 2019, 14:55:57 »

Так оно не может модуль nosat.pm найти. Как минимум нужно убедиться что он в реале есть и что права доступа разрешают его юзать.
Записан
Art1
NoDeny
Пользователь
*

Карма: 0
Offline Offline

Сообщений: 84


Просмотр профиля
« Ответ #6 : 11 Января 2019, 11:05:03 »

Цитировать
drwxr-xr-x   2 root  wheel   512 Jan 11 11:00 nodeny

Цитировать
root@bras4:/usr/local/nodeny # ls -ll
total 576
-rw-r--r--  1 root  wheel     185 Jan 10 12:18 go.sh
-rw-r--r--  1 root  wheel     522 Jan  2 20:26 ipaysys.sh
-rw-r--r--  1 root  wheel    1925 Jan  2 20:25 ipaysys.txt
-rw-r--r--  1 root  wheel     196 Jan  2 20:26 netflow.txt
-rw-r--r--  1 root  wheel    2580 Jan  2 20:25 nocheck.pl
-rw-r--r--  1 root  wheel   18138 Jan  2 20:26 nofire.pl
-rw-r--r--  1 root  wheel    7711 Jan  2 20:25 nomake.pl
-rw-r--r--  1 root  wheel    5846 Jan  2 20:26 nosat.pl
-rw-r--r--  1 root  wheel    6830 Jan  2 20:26 nosat.pm
-rw-r--r--  1 root  wheel  447861 Jan 10 12:18 noserver.log
-rw-r--r--  1 root  wheel   18630 Jan 10 12:02 noserver.pl
-rw-r--r--  1 root  wheel    1100 Jan  2 20:27 noserver.sh
-rw-r--r--  1 root  wheel     849 Jan  2 20:26 paysystem.txt
-rw-r--r--  1 root  wheel     670 Jan  9 12:34 sat.cfg
Записан
FlySky11
Пользователь
**

Карма: 1
Offline Offline

Сообщений: 34

Ukraine


Просмотр профиля
« Ответ #7 : 04 Марта 2021, 10:26:09 »

В go.sh вписал export PERL_USE_UNSAFE_INC=1

FreeBSD 11.2-RELEASE-p7
perl 5.28.1

go.sh
Цитировать
#!/bin/sh

export PERL_USE_UNSAFE_INC=1

prg="nice -n -15 perl $1.pl"

while true
do
 ${prg}
 rez=$?
 case $rez in
         0 )  sleep 2 ;;
         * )  break ;;
 esac
done

exit $rez

Цитировать
root@bras4:/usr/local/nodeny # perl -v

This is perl 5, version 28, subversion 1 (v5.28.1) built for amd64-freebsd-thread-multi

root@bras4:/usr/local/nodeny # perl noserver.pl -v
Can't locate nosat.pm in @INC (you may need to install the nosat module) (@INC contains: /usr/local/lib/perl5/site_perl/mach/5.28 /usr/local/lib/perl5/site_perl /usr/local/lib/perl5/5.28/mach /usr/local/lib/perl5/5.28) at noserver.pl line 22.
BEGIN failed--compilation aborted at noserver.pl line 25.

как побороть? какие могут быть варианты

Нужно скопирувать nosat.pm во все ети папки (@INC contains: /usr/local/lib/perl5/site_perl/mach/5.28 /usr/local/lib/perl5/site_perl /usr/local/lib/perl5/5.28/mach /usr/local/lib/perl5/5.28)
C другими версиями перла пути отличаються
« Последнее редактирование: 04 Марта 2021, 11:00:29 от FlySky11 » Записан

Ваш досвід рівно пропорційний кількості зламаного вами обладнання.
ser970
NoDeny
Спец
*

Карма: 70
Offline Offline

Сообщений: 1324

262462619
Просмотр профиля Email
« Ответ #8 : 04 Марта 2021, 15:54:56 »

зачем так сложно ...

в noserver.pl
use lib '/путь';
Записан
Страниц: [1]
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.20 | SMF © 2006-2009, Simple Machines Valid XHTML 1.0! Valid CSS!