=================================================================== RCS file: /cvs/nagios/check_openbgpd/check_openbgpd,v retrieving revision 1.7 retrieving revision 1.10 diff -u -r1.7 -r1.10 --- nagios/check_openbgpd/check_openbgpd 2015/03/25 03:19:28 1.7 +++ nagios/check_openbgpd/check_openbgpd 2015/03/26 04:44:15 1.10 @@ -1,5 +1,5 @@ #!/usr/bin/perl -T -# $RedRiver: check_openbgpd,v 1.4 2009/11/19 21:22:01 andrew Exp $ +# $AFresh1: check_openbgpd,v 1.9 2015/03/26 03:42:23 andrew Exp $ ######################################################################## # check_openbgpd *** A nagios check for OpenBSD bgpd # @@ -9,6 +9,7 @@ use warnings; use 5.010; +use if $] >= 5.016, experimental => 'switch'; local %ENV = (); @@ -263,9 +264,9 @@ state( $w, $c ); my $opt = shift @argv; - given ($opt) { + for ($opt) { when ( '-V' || '--version' ) { - print_revision( $PROGNAME, '$Revision: 1.7 $ ' ); + print_revision( $PROGNAME, '$Revision: 1.10 $ ' ); exit $ERRORS{'OK'} } when (/^-?-h(?:elp)?/xms) { print_help(); exit $ERRORS{'OK'} } @@ -274,16 +275,16 @@ when (/^-?-c(?:ritical)?/xms) { $c = parse_check( shift @argv ) } when (/^-?-u(?:nknown)?/xms) { $checks{_UNKNOWN} = { - WARNING => $w, - CRITICAL => $c, - } + WARNING => $w, + CRITICAL => $c, + }; } when (/^-?-n(?:eighbor)?/xms) { while ( @argv && $argv[0] !~ /^-/xms ) { $checks{ shift @argv } = { - WARNING => $w, - CRITICAL => $c, - } + WARNING => $w, + CRITICAL => $c, + }; } } default { print_help(); exit $ERRORS{'UNKNOWN'} } @@ -369,7 +370,7 @@ EOL - print_revision( $PROGNAME, '$Revision: 1.7 $' ); + print_revision( $PROGNAME, '$Revision: 1.10 $' ); print $LICENSE;