Início / server / Perguntas / 1121533
Accepted
Dom
Asked: 2023-01-31 12:03:13 +0800 CST

Uso de valor não inicializado na equação numérica (==) na linha /usr/share/perl5/Net/Server/Fork.pm 168

  • 772

No meu novo Debian Bookworm, o arquivo /usr/share/perl5/Net/Server/Fork.pmgera um erro nos logs toda vez que Munin o chama. O erro registrado é

"Uso de valor não inicializado na equação numérica (==) em /usr/share/perl5/Net/Server/Fork.pm linha 168."

No Debian Bullseye, não há erro.

A propósito, aqui estão as diferenças entre as duas versões:

5c5
< #  Copyright (C) 2001-2017
---
> #  Copyright (C) 2001-2022
146a147
>         $self->register_child($pid, 'fork');
167c168
<     if (SOCK_DGRAM == $sock->getsockopt(SOL_SOCKET,SO_TYPE)) {
---
>     if (SOCK_DGRAM == unpack('i', $sock->getsockopt(SOL_SOCKET, SO_TYPE))) {

A linha 168 é o último diff, onde ocorre o problema.

Eu não conheço o Perl, então como posso resolver isso e relatar o erro ao proprietário do pacote Perl?

perl

1 respostas

  1. Best Answer

    Parece que esse problema já foi relatado ao projeto no problema 32 do github perl-net-server . Você pode adicionar sua própria análise lá para ver se isso pode receber uma atenção melhor.

    Eu não vejo isso relatado no sistema central de rastreamento de bugs do Perl , então você pode querer adicioná-lo lá. Em caso afirmativo, inclua um link para o problema do github.

    A correção de código para isso deve ser bem fácil:

    my $sockopt = unpack('i', $sock->getsockopt(SOL_SOCKET, SO_TYPE));
if (defined $sockopt and SOCK_DGRAM == $sockopt) {

    supondo que o nome da variável não seja usado nas proximidades do código.

    • 1

relate perguntas