fix for embedded perl

git-svn-id: https://nagiosplug.svn.sourceforge.net/svnroot/nagiosplug/nagiosplug/trunk@21 f882894a-f735-0410-b71e-b25c423dba1c

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 @@
 # $Id$
 
 
-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);
 use Getopt::Long;