| Subject: | Infinit loop on error |
In
my $line = $self->read;
while($line !~ /^\.$/) {
chomp $line;
push(@data, $line);
$line = $self->read;
}
If the socket read returns an error - then an infinite loop is entered.
In my stderr I get then:
Use of uninitialized value $line in pattern match (m//) at /usr/share/perl5/Munin/Node/Client.pm line 118, <GEN0> line 10.
Use of uninitialized value $line in scalar chomp at /usr/share/perl5/Munin/Node/Client.pm line 119, <GEN0> line 10.
Use of uninitialized value $line in pattern match (m//) at /usr/share/perl5/Munin/Node/Client.pm line 121, <GEN0> line 10.
Use of uninitialized value $line in scalar chomp at /usr/share/perl5/Munin/Node/Client.pm line 119, <GEN0> line 10.
A fix proposed in: https://github.com/operasoftware/Munin-Node-Client/commit/0cd6a955ea3a4f8b83c4553f7009e86e59a82f3e