From 4a25b7de164037d71170a72ba7fd79417bcf22d2 Mon Sep 17 00:00:00 2001
From: gustavo panizzo <gfa@zumbi.com.ar>
Date: Sat, 12 Dec 2020 21:32:51 +0100
Subject: [PATCH] fix the bird plugin to work with perl 5.28

---
 plugins/bird/bird | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/plugins/bird/bird b/plugins/bird/bird
index b6aa4e15..f5a0d2ea 100755
--- a/plugins/bird/bird
+++ b/plugins/bird/bird
@@ -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;