diff options
| author |  Subhendu Ghosh <sghosh@users.sourceforge.net>
| 2002-05-02 16:43:29 +0000 |
|---|---|---|
| committer | Subhendu Ghosh <sghosh@users.sourceforge.net>
| 2002-05-02 16:43:29 +0000 |
| commit | becc0f34e60500798bd15bf5af6e4b8c52707d0a (patch) | |
| tree | c117e73085955568f57d4eb89f41640297796977 /plugins-scripts/check_rpc.pl | |
| parent | bbcaeb1db1666c606a3578d3d24f1618f8c9947c (diff) | |
| download | monitoring-plugins-becc0f34e60500798bd15bf5af6e4b8c52707d0a.tar.gz | |
fix for embedded perl
git-svn-id: https://nagiosplug.svn.sourceforge.net/svnroot/nagiosplug/nagiosplug/trunk@21 f882894a-f735-0410-b71e-b25c423dba1c
Diffstat (limited to 'plugins-scripts/check_rpc.pl')
| -rwxr-xr-x | plugins-scripts/check_rpc.pl | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/plugins-scripts/check_rpc.pl b/plugins-scripts/check_rpc.pl index 51901ac0..2e25f414 100755 --- a/plugins-scripts/check_rpc.pl +++ b/plugins-scripts/check_rpc.pl @@ -18,15 +18,11 @@ # # Copyright Notice: GPL # -BEGIN { - if ($0 =~ m/^(.*?)[\/\\]([^\/\\]+)$/) { - $runtimedir = $1; - $PROGNAME = $2; - } -} + use strict; -use lib $main::runtimedir; +use FindBin; +use lib "$FindBin::Bin"; use utils qw($TIMEOUT %ERRORS &print_revision &support); use vars qw($PROGNAME); my ($verbose,@proto,%prognum,$host,$response,$prognum,$port,$cmd); |