Révision 4a25b7de
fix the bird plugin to work with perl 5.28
| plugins/bird/bird | ||
|---|---|---|
| 62 | 62 |
) or die $!; |
| 63 | 63 |
|
| 64 | 64 |
my ($protocol,$name); |
| 65 |
while (<$bird_ctl>) {
|
|
| 66 |
given($_) {
|
|
| 65 |
while (my $var = <$bird_ctl>) {
|
|
| 66 |
given($var) {
|
|
| 67 | 67 |
when (/1002-(\w+)\s+(\w+)\s+.*/) {
|
| 68 | 68 |
($name, $protocol) = ($1,$2); |
| 69 | 69 |
next unless $protocol ~~ $protocols; |
Formats disponibles : Unified diff