FreeBSD 10.4, perl 5.26.2 -> Лыжи не едут с самого начала :(

[Sidius]

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

Код:

# 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]

Разобрался.

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

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

[Cell]

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

[Sidius]

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

[Art1]

В 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]

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

[Art1]

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]

В 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 другими версиями перла пути отличаються

[ser970]

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

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