Биллинговая система Nodeny

Главная категория => Nodeny 50 => Тема начата: Sidius от 26 Октября 2018, 00:52:41



Название: FreeBSD 10.4, perl 5.26.2 -> Лыжи не едут с самого начала :(
Отправлено: Sidius от 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 - все работает как должно. Тут новая машинка - и на тебе :(


Название: Re: FreeBSD 10.4, perl 5.26.2 -> Лыжи не едут с самого начала :(
Отправлено: Sidius от 26 Октября 2018, 01:10:14
Разобрался.

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

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



Название: Re: FreeBSD 10.4, perl 5.26.2 -> Лыжи не едут с самого начала :(
Отправлено: Cell от 26 Октября 2018, 09:49:14
офф.
Меня всегда умиляло отсутствие обратной совместимости версий при обновлении софта.
Сука, чем думают эти люди? Как будто у них жопа вместо головы.


Название: Re: FreeBSD 10.4, perl 5.26.2 -> Лыжи не едут с самого начала :(
Отправлено: Sidius от 26 Октября 2018, 10:28:33
Плюсану за это. Взяли себе яйцеголовые пиндосы решили чтоб убрать что-то а всем сиди переделывай скрипты. Придурки.


Название: Re: FreeBSD 10.4, perl 5.26.2 -> Лыжи не едут с самого начала :(
Отправлено: Art1 от 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.

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


Название: Re: FreeBSD 10.4, perl 5.26.2 -> Лыжи не едут с самого начала :(
Отправлено: Cell от 10 Января 2019, 14:55:57
Так оно не может модуль nosat.pm найти. Как минимум нужно убедиться что он в реале есть и что права доступа разрешают его юзать.


Название: Re: FreeBSD 10.4, perl 5.26.2 -> Лыжи не едут с самого начала :(
Отправлено: Art1 от 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


Название: Re: FreeBSD 10.4, perl 5.26.2 -> Лыжи не едут с самого начала :(
Отправлено: FlySky11 от 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 другими версиями перла пути отличаються


Название: Re: FreeBSD 10.4, perl 5.26.2 -> Лыжи не едут с самого начала :(
Отправлено: ser970 от 04 Марта 2021, 15:54:56
зачем так сложно ...

в noserver.pl
use lib '/путь';