From e63887eda6765e1059939ff9c89e4fb244b5819b Mon Sep 17 00:00:00 2001 From: Gavin Carr Date: Wed, 4 Oct 2006 22:02:39 +0000 Subject: Fix NP shortname defaulting; downgrade version requirements. git-svn-id: https://nagiosplug.svn.sourceforge.net/svnroot/nagiosplug/Nagios-Plugin/trunk@1489 f882894a-f735-0410-b71e-b25c423dba1c --- lib/Nagios/Plugin/Functions.pm | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) (limited to 'lib/Nagios/Plugin/Functions.pm') diff --git a/lib/Nagios/Plugin/Functions.pm b/lib/Nagios/Plugin/Functions.pm index 9cb7eb6..804661c 100644 --- a/lib/Nagios/Plugin/Functions.pm +++ b/lib/Nagios/Plugin/Functions.pm @@ -1,7 +1,10 @@ -# This module holds all exported variables -# and base functions +# Functional interface to basic Nagios::Plugin constants, exports, +# and functions + package Nagios::Plugin::Functions; +use 5.006; + use strict; use warnings; use File::Basename; @@ -47,7 +50,8 @@ sub get_shortname { return $arg{plugin}->shortname if $arg{plugin}; my $shortname = uc basename($ENV{NAGIOS_PLUGIN} || $0); - $shortname =~ s/^CHECK_//; + $shortname =~ s/^CHECK_//; # Remove any leading CHECK_ + $shortname =~ s/\..*$//; # Remove any trailing suffix return $shortname; } -- cgit v1.2.3-74-g34f1