===================================================================
RCS file: /cvs/nagios/check_bioctl/check_bioctl,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -r1.18 -r1.19
--- nagios/check_bioctl/check_bioctl	2011/12/27 02:12:38	1.18
+++ nagios/check_bioctl/check_bioctl	2011/12/27 02:23:57	1.19
@@ -1,5 +1,5 @@
 #!/usr/bin/perl -T
-# $RedRiver: check_bioctl,v 1.15 2009/11/23 22:24:45 andrew Exp $
+# $AFresh1$
 ########################################################################
 # check_bioctl *** A nagios check for OpenBSD bioctl
 #
@@ -7,6 +7,7 @@
 ########################################################################
 use strict;
 use warnings;
+use 5.010;
 
 local %ENV = ();
 
@@ -42,7 +43,7 @@
 use utils qw($TIMEOUT %ERRORS &support);
 
 $SIG{'ALRM'} = sub {
-    print "ERROR: $PROGNAME timeout\n";
+    say "ERROR: $PROGNAME timeout";
     exit $ERRORS{'UNKNOWN'};
 };
 alarm($TIMEOUT);
@@ -81,7 +82,7 @@
 }
 
 if ($opt_V) {
-    print_revision( $PROGNAME, '$Revision: 1.18 $ ' );
+    print_revision();
     exit $ERRORS{'OK'};
 }
 
@@ -114,7 +115,7 @@
     }
 }
 if ( $have_results == 0 ) {
-    print "No results found\n";
+    say 'No results found';
 }
 exit $ERRORS{$state};
 
@@ -149,39 +150,33 @@
     return %volumes;
 }
 
-{
-    my $vid;
-    my $controller;
+sub parse_bioctl_line {
+    ($_) = @_;
+    chomp;
 
-    sub parse_bioctl_line {
-        ($_) = @_;
-        chomp;
+    my @o = map { s/^\s+|\s+$//g; $_ } split;
+    return if $o[0] eq 'Volume';
 
-        my @o = map { s/^\s+|\s+$//g; $_ } split;
-        return if $o[0] eq 'Volume';
+    state $vid = '';
+    state $controller;
 
-        $vid ||= '';
-
-        my $index = "$vid.$o[0]";
-        if ( $o[0] !~ /^\d+$/ ) {
-            $controller = shift @o;
-            $vid        = $o[0];
-            $index      = $vid;
-        }
-
-        return $index,
-            {
-            controller  => $controller,
-            volume_id   => $vid,
-            id          => shift @o,
-            status      => shift @o,
-            size        => shift @o,
-            device      => shift @o,
-            name        => shift @o,
-            description => join ' ',
-            @o,
-            };
+    my $index = "$vid.$o[0]";
+    if ( $o[0] !~ /^\d+$/ ) {
+        $controller = shift @o;
+        $vid        = $o[0];
+        $index      = $vid;
     }
+
+    return $index, {
+        controller  => $controller,
+        volume_id   => $vid,
+        id          => shift @o,
+        status      => shift @o,
+        size        => shift @o,
+        device      => shift @o,
+        name        => shift @o,
+        description => join ' ', @o,
+    };
 }
 
 sub check_status {
@@ -217,7 +212,7 @@
 
 EOL
 
-    print_revision( $PROGNAME, '$Revision: 1.18 $' );
+    print_revision();
 
     print $License;
 
@@ -225,10 +220,10 @@
 }
 
 sub print_revision {
-    my ( $prog, $rev ) = @_;
+    my $rev = '$Revision: 1.19 $';
     $rev =~ s/^\D+([\d\.]+)\D+$/v$1/xms;
 
-    print "$prog $rev\n";
+    say "$PROGNAME $rev";
 
     return 1;
 }