summaryrefslogtreecommitdiffstats
path: root/lib
diff options
context:
space:
mode:
authorTon Voon <tonvoon@users.sourceforge.net>2007-09-04 13:17:01 (GMT)
committerTon Voon <tonvoon@users.sourceforge.net>2007-09-04 13:17:01 (GMT)
commit3ec5d3b8b2426a9acce2faa23a58e615af62930f (patch)
tree544b1c26587ced6c82b992fc151c66981dc35e81 /lib
parent819c55cfdd0c26069229ec27a02576d4169defdb (diff)
downloadmonitoring-plugin-perl-3ec5d3b8b2426a9acce2faa23a58e615af62930f.tar.gz
Fixed CPAN test failures due to bad MANIFEST. Fixed version numbering
Fixed a performance parsing problem where uom=% wasn't being recognised git-svn-id: https://nagiosplug.svn.sourceforge.net/svnroot/nagiosplug/Nagios-Plugin/trunk@1775 f882894a-f735-0410-b71e-b25c423dba1c
Diffstat (limited to 'lib')
-rw-r--r--lib/Nagios/Plugin.pm3
-rw-r--r--lib/Nagios/Plugin/Functions.pm2
-rw-r--r--lib/Nagios/Plugin/Performance.pm2
3 files changed, 4 insertions, 3 deletions
diff --git a/lib/Nagios/Plugin.pm b/lib/Nagios/Plugin.pm
index fe83575..cdd3396 100644
--- a/lib/Nagios/Plugin.pm
+++ b/lib/Nagios/Plugin.pm
@@ -24,7 +24,8 @@ our @EXPORT_OK = qw(%ERRORS);
24 24
25# CPAN stupidly won't index this module without a literal $VERSION here, 25# CPAN stupidly won't index this module without a literal $VERSION here,
26# so we're forced to duplicate it explicitly 26# so we're forced to duplicate it explicitly
27our $VERSION = 0.17; 27# Make sure you update $Nagios::Plugin::Functions::VERSION too
28our $VERSION = 0.19;
28# our $VERSION = $Nagios::Plugin::Functions::VERSION; 29# our $VERSION = $Nagios::Plugin::Functions::VERSION;
29 30
30sub new { 31sub new {
diff --git a/lib/Nagios/Plugin/Functions.pm b/lib/Nagios/Plugin/Functions.pm
index e8b292e..318b2cb 100644
--- a/lib/Nagios/Plugin/Functions.pm
+++ b/lib/Nagios/Plugin/Functions.pm
@@ -12,7 +12,7 @@ use Params::Validate qw(validate :types);
12use Math::Calc::Units; 12use Math::Calc::Units;
13 13
14# Remember to update Nagios::Plugins as well 14# Remember to update Nagios::Plugins as well
15our $VERSION = 0.17; 15our $VERSION = 0.19;
16 16
17our @STATUS_CODES = qw(OK WARNING CRITICAL UNKNOWN DEPENDENT); 17our @STATUS_CODES = qw(OK WARNING CRITICAL UNKNOWN DEPENDENT);
18 18
diff --git a/lib/Nagios/Plugin/Performance.pm b/lib/Nagios/Plugin/Performance.pm
index 7ce5fa1..55e3ddc 100644
--- a/lib/Nagios/Plugin/Performance.pm
+++ b/lib/Nagios/Plugin/Performance.pm
@@ -25,7 +25,7 @@ sub import {
25sub _parse { 25sub _parse {
26 my $class = shift; 26 my $class = shift;
27 my $string = shift; 27 my $string = shift;
28 $string =~ s/^([^=]+)=([\d\.]+)(\w*);?([\d\.]+)?;?([\d\.]+)?;?([\d\.]+)?;?([\d\.]+)?\s*//; 28 $string =~ s/^([^=]+)=([\d\.]+)([\w%]*);?([\d\.]+)?;?([\d\.]+)?;?([\d\.]+)?;?([\d\.]+)?\s*//;
29 return undef unless ((defined $1 && $1 ne "") && (defined $2 && $2 ne "")); 29 return undef unless ((defined $1 && $1 ne "") && (defined $2 && $2 ne ""));
30 my $p = $class->new( 30 my $p = $class->new(
31 label => $1, value => $2+0, uom => $3, warning => $4, critical => $5, 31 label => $1, value => $2+0, uom => $3, warning => $4, critical => $5,