=================================================================== RCS file: /cvs/nagios/check_hw_sensors/check_hw_sensors,v retrieving revision 1.39 retrieving revision 1.40 diff -u -r1.39 -r1.40 --- nagios/check_hw_sensors/check_hw_sensors 2009/11/11 18:14:00 1.39 +++ nagios/check_hw_sensors/check_hw_sensors 2009/11/11 18:14:40 1.40 @@ -1,5 +1,5 @@ #!/usr/bin/perl -T -# $RedRiver: check_hw_sensors,v 1.38 2009/11/11 18:08:41 andrew Exp $ +# $RedRiver: check_hw_sensors,v 1.39 2009/11/11 18:14:00 andrew Exp $ ######################################################################## # check_hw_sensors *** A nagios check for OpenBSD sysctl hw.sensors # @@ -30,10 +30,11 @@ use POSIX; use Config; my $PREFIX; + BEGIN { ## no critic 'warnings' no warnings 'uninitialized'; - $PREFIX = "${PREFIX}" || '/usr/local'; # Magic for OpenBSD ports tree + $PREFIX = "${PREFIX}" || '/usr/local'; # Magic for OpenBSD ports tree } use lib $PREFIX . '/libexec/nagios'; use utils qw($TIMEOUT %ERRORS &support); @@ -75,7 +76,7 @@ } if ($opt_V) { - print_revision( $PROGNAME, '$Revision: 1.39 $ ' ); + print_revision( $PROGNAME, '$Revision: 1.40 $ ' ); exit $ERRORS{'OK'}; } @@ -160,7 +161,7 @@ print $error . ' (' . scalar( @{ $STATES{$error} } ) . ')'; if ( $error ne 'OK' ) { print '
'; - print map { " - $_
" } @{ $STATES{$error} }; + print map {" - $_
"} @{ $STATES{$error} }; } } else { @@ -535,7 +536,7 @@ EOL - print_revision( $PROGNAME, '$Revision: 1.39 $' ); + print_revision( $PROGNAME, '$Revision: 1.40 $' ); print $LICENSE;