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

+	0.839511	API OmegaTV вернуло ошибку, смотрите debug at /usr/local/nodeny/nod/_omegatv.pm line 63.
72 stat.pl Compilation failed in require at /usr/local/nodeny/web/calls.pm line 1439.

 $response->is_success or die $api_err_msg;

# Загружает фантом модуля (файл, начинающийся с подчеркивания), если его нет - сам модуль
# Если установлей 2й параметр - загрузка только 1 раз (как при use)
sub Require_mod
{
 my($name, $only_once)= @_;
 $ses::sub_Require_mod__Used_modules ||= {};
 $only_once && $ses::sub_Require_mod__Used_modules->{$name} && return '';
 my $file = "$cfg::dir_home/$name";
 $file .= '.pl' if $file !~ /\.(pl|pm)$/;
 my $phantom = $file;
 $phantom =~ s|/([^/]+)$|/_$1|s;
 $file = $phantom if( -e $phantom );
 debug "require $file";
 # eval, поскольку ошибка компиляции $file не даст загрузить модули в обработчике die (гугли BEGIN not safe after errors)
eval{ require $file }; # строка 1439
 $ses::sub_Require_mod__Used_modules->{$name} = 1 if !$@;
 return "$@";
}

# cd /usr/local/nodeny/ && svn log | head -2 | tail -1
Authentication realm: <svn://nodeny-plus.com.ua:3690> Nodeny Plus Repository

r580 | sv | 2019-08-20 22:27:25 +0300 (вт, 20 авг. 2019) | 1 line

# perl -v

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

# cd /usr/local/nodeny/ && svn log | head -2 | tail -1
r581 | sv | 2019-09-03 21:58:33 +0300 (Tue, 03 Sep 2019) | 1 line

# perl -v
This is perl 5, version 28, subversion 2 (v5.28.2) built for amd64-freebsd-thread-multi

sub remove_fields
{
    return ['radius_attr'];
}