diff options
Diffstat (limited to 'plugins-scripts/check_wave.pl')
| -rwxr-xr-x | plugins-scripts/check_wave.pl | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/plugins-scripts/check_wave.pl b/plugins-scripts/check_wave.pl index c6e6c662..6d58e4f4 100755 --- a/plugins-scripts/check_wave.pl +++ b/plugins-scripts/check_wave.pl | |||
| @@ -3,15 +3,9 @@ | |||
| 3 | # $Id$ | 3 | # $Id$ |
| 4 | 4 | ||
| 5 | 5 | ||
| 6 | BEGIN { | ||
| 7 | if ($0 =~ m/^(.*?)[\/\\]([^\/\\]+)$/) { | ||
| 8 | $runtimedir = $1; | ||
| 9 | $PROGNAME = $2; | ||
| 10 | } | ||
| 11 | } | ||
| 12 | |||
| 13 | use strict; | 6 | use strict; |
| 14 | use lib $main::runtimedir; | 7 | use FindBin; |
| 8 | use lib "$Findbin::Bin"; | ||
| 15 | use utils qw($TIMEOUT %ERRORS &print_revision &support); | 9 | use utils qw($TIMEOUT %ERRORS &print_revision &support); |
| 16 | use vars qw($PROGNAME); | 10 | use vars qw($PROGNAME); |
| 17 | use Getopt::Long; | 11 | use Getopt::Long; |
