Mirrors/Munin-Contrib
1
0
Fork 0
mirror of https://github.com/munin-monitoring/contrib.git synced 2025-07-21 18:41:03 +00:00
Code Issues Releases Wiki Activity

fix the bird plugin to work with perl 5.28

Browse source
This commit is contained in:
gustavo panizzo 2020-12-12 21:32:51 +01:00 • committed by Lars Kruse
parent 375d3643ec
commit 4a25b7de16
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
plugins/bird/bird
View file

@ -62,8 +62,8 @@ sub get_stats {
) or die $!;
my ($protocol,$name);
while (<$bird_ctl>) {
given($_) {
while (my $var = <$bird_ctl>) {
given($var) {
when (/1002-(\w+)\s+(\w+)\s+.*/) {
($name, $protocol) = ($1,$2);
next unless $protocol ~~ $protocols;