From 3ec5d3b8b2426a9acce2faa23a58e615af62930f Mon Sep 17 00:00:00 2001 From: Ton Voon Date: Tue, 4 Sep 2007 13:17:01 +0000 Subject: 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 --- lib/Nagios/Plugin/Performance.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'lib/Nagios/Plugin/Performance.pm') 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 { sub _parse { my $class = shift; my $string = shift; - $string =~ s/^([^=]+)=([\d\.]+)(\w*);?([\d\.]+)?;?([\d\.]+)?;?([\d\.]+)?;?([\d\.]+)?\s*//; + $string =~ s/^([^=]+)=([\d\.]+)([\w%]*);?([\d\.]+)?;?([\d\.]+)?;?([\d\.]+)?;?([\d\.]+)?\s*//; return undef unless ((defined $1 && $1 ne "") && (defined $2 && $2 ne "")); my $p = $class->new( label => $1, value => $2+0, uom => $3, warning => $4, critical => $5, -- cgit v1.2.3-74-g34f1