FreeBSD 8.1, FreeRADIUS 2.1.9, Perl 5.10 etc.

[chtito]

На днях собираемся апгрейдить FreeBSD 8.0->8.1, FreeRADIUS 2.1.3->2.1.9, MySQL 5.1->5.5
Perl тоже, с версии 5.8.8. С каким перлом нормально работает rlm_perl? Есть выбор: 5.8.9, 5.10, 5.12. Хочется 5.12
Прошу поделиться вашим опытом в аналогичных ситуациях, какие есть подводные камни и т.п. Спасибо за любые комментарии и советы.

[l30l3]

Я обычно перед обновлением ганяю всё на виртуальной машине. Многие проблемы так получилось предупредить. Но как показала практика, некоторые косяки всплывают только под нагрузкой (у меня при использовании ng_car происходит cernel panic при онлайне 70+)

Я вообще заливаю дампы разделов сервера на разделы виртуальной машини по SSH, и так получаю клон для экспериментов. Если интересно, могу рассказать подробнее ...

[chtito]

Спасибо, но вопрос неудачных апгрейдов классического типа у нас не стоит, т.к. апгрейд будет совмещен с переездом на новую машину, т.е. установлено все будет с нуля.

[~AsmodeuS~]

с 5.12 еще не пробовали

[chtito]

с 5.12 еще не пробовали

Установил MySQL 5.5, Perl 5.12, FreeRADIUS 2.1.9. Скопировал туда всю БД.
radclient успешно сработал.

radiusd/rlm_perl в целом нормально запускается, с одним предупреждением:

Starting radiusd.
defined(%hash) is deprecated at /usr/abills/libexec/rauth.pl line 232.
(Maybe you should just omit the defined()?)
Subroutine access_deny redefined at /usr/abills/libexec/rauth.pl line 254.
Reply-Message = "Unknow server ''"

А вторая ошибка и раньше всегда была, ерунда.
Надеюсь нигде не будет более серьезных несоответствий с Perl 5.12

Работаем дальше.

[~AsmodeuS~]

это последний форк абилс?

[chtito]

это последний форк абилс?

Нет, 0.40b форк от 15-го сентября 2008 + свои доработки.
Все село на ура и без запинки, даже не ожидал, осталось проверить в действии.

[zulu_radist]

Тоже какой то варнинг плюет при старте радиуса

Код: Выделить всё

 * Starting radiusd ...
defined(%hash) is deprecated at /usr/abills/libexec/rauth.pl line 259.
        (Maybe you should just omit the defined()?)                                           [ ok ]

Оно то вроде как работает но хотелось бы найти причину и устранить, чтобы потом не всплыло.

[chtito]

Тоже какой то варнинг плюет при старте радиуса

Код: Выделить всё

 * Starting radiusd ...
defined(%hash) is deprecated at /usr/abills/libexec/rauth.pl line 259.
        (Maybe you should just omit the defined()?)                                           [ ok ]

Оно то вроде как работает но хотелось бы найти причину и устранить, чтобы потом не всплыло.

$ perldoc -f defined

Use of "defined" on aggregates (hashes and arrays) is
deprecated. It used to report whether memory for that
aggregate has ever been allocated. This behavior may disappear
in future versions of Perl. You should instead use a simple
test for size:

if (@an_array) { print "has array elements\n" }
if (%a_hash) { print "has hash members\n" }

т.е. по идее можно просто убрать defined.

if (defined(%RAD_REQUEST)) {

поменять на

if (%RAD_REQUEST) {

[zulu_radist]

Спасибо большое, помогло