mirrors
/
munin-contrib
mirror of https://github.com/munin-monitoring/contrib.git
2
0
Fork 0
Code Issues Projects Releases Wiki Activity

fix the bird plugin to work with perl 5.28

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
Show Stats 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;