diff options
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 @@ | |||
| 18 | # | 18 | # |
| 19 | # Copyright Notice: GPL | 19 | # Copyright Notice: GPL |
| 20 | # | 20 | # |
| 21 | BEGIN { | 21 | |
| 22 | if ($0 =~ m/^(.*?)[\/\\]([^\/\\]+)$/) { | ||
| 23 | $runtimedir = $1; | ||
| 24 | $PROGNAME = $2; | ||
| 25 | } | ||
| 26 | } | ||
| 27 | 22 | ||
| 28 | use strict; | 23 | use strict; |
| 29 | use lib $main::runtimedir; | 24 | use FindBin; |
| 25 | use lib "$FindBin::Bin"; | ||
| 30 | use utils qw($TIMEOUT %ERRORS &print_revision &support); | 26 | use utils qw($TIMEOUT %ERRORS &print_revision &support); |
| 31 | use vars qw($PROGNAME); | 27 | use vars qw($PROGNAME); |
| 32 | my ($verbose,@proto,%prognum,$host,$response,$prognum,$port,$cmd); | 28 | my ($verbose,@proto,%prognum,$host,$response,$prognum,$port,$cmd); |
