===================================================================
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;