From c370a35caaa236b154367663307081ec50eb5ae0 Mon Sep 17 00:00:00 2001 From: Subhendu Ghosh Date: Wed, 14 Aug 2002 19:02:31 +0000 Subject: [PATCH] fix for ePN git-svn-id: https://nagiosplug.svn.sourceforge.net/svnroot/nagiosplug/nagiosplug/trunk@74 f882894a-f735-0410-b71e-b25c423dba1c --- contrib/check_apc_ups.pl | 9 +-------- 1 file changed, 1 insertion(+), 8 deletions(-) diff --git a/contrib/check_apc_ups.pl b/contrib/check_apc_ups.pl index dd979f5..74ae229 100644 --- a/contrib/check_apc_ups.pl +++ b/contrib/check_apc_ups.pl @@ -9,18 +9,11 @@ # remaining: hh:mm:ss" if all is well, and a list of specific problems # if something is broken. -BEGIN { - if ($0 =~ m/^(.*?)[\/\\]([^\/\\]+)$/) { - $runtimedir = $1; - $PROGNAME = $2; - } -} - use strict; use Getopt::Long; use vars qw($opt_V $opt_h $opt_H $opt_T $opt_t $opt_R $opt_r $opt_L $opt_l $PROGNAME); -use lib $main::runtimedir; +use lib utils.pm; use utils qw(%ERRORS &print_revision &support &usage); sub print_help (); -- 2.30.2