ALT Linux Bugzilla – #61242

Системы:
Alt Workstation 11.2 x86-64
Alt Workstation K 11.4 x86-64
Alt Education 11.2 XFCE x86-64 
Alt Education 11.2 KDE x86-64
Alt Server 11.1 x86-64 (Обновленная до Sisyphus)

Описание ошибки:
В SRU/Utils.pm определена функция error($msg) - она пишет сообщение в глобальную $SRU::Error и возвращает undef; это штатный способ сигнализировать об ошибке во всём пакете SRU (our @EXPORT_OK = qw( error )).

В SRU/Response/Term.pm и SRU/Response.pm она корректно импортирована (use SRU::Utils qw( error );). А в SRU/Response/Diagnostic.pm - нет: там только use SRU::Utils::XML qw( element elementNoEscape );, но при этом newFromCode() вызывает error(...):

sub newFromCode {
    my ($class,$code,$details) = @_;
    return error( "no such diagnostic code ($code)" )   # <-- error() не импортирована
        if ! exists $DIAG{$code};
    ...
}

Шаги для воспроизведения:
1. Установить пакет:
   # apt-get install perl-SRU
2. Выполнить:
   $ perl -MSRU::Response::Diagnostic -e 'SRU::Response::Diagnostic->newFromCode(999)'

Ожидаемое поведение:
При неизвестном коде newFromCode() возвращает undef и кладёт сообщение в $SRU::Error, ничего не печатая. 

Реальное поведение:
Undefined subroutine &SRU::Response::Diagnostic::error called at /usr/share/perl5/SRU/Response/Diagnostic.pm line 117.

Дополнительно:
1. Воспроизводится в P11