Mirrors/Munin-Contrib
1
0
Fork 0
mirror of https://github.com/munin-monitoring/contrib.git synced 2025-07-21 10:39:53 +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 $!; ) or die $!;
my ($protocol,$name); my ($protocol,$name);
while (<$bird_ctl>) { while (my $var = <$bird_ctl>) {
given($_) { given($var) {
when (/1002-(\w+)\s+(\w+)\s+.*/) { when (/1002-(\w+)\s+(\w+)\s+.*/) {
($name, $protocol) = ($1,$2); ($name, $protocol) = ($1,$2);
next unless $protocol ~~ $protocols; next unless $protocol ~~ $protocols;