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, 3 insertions, 7 deletions

diff --git a/plugins-scripts/check_flexlm.pl b/plugins-scripts/check_flexlm.pl
index 1d26b7c..595a0b3 100755
--- a/plugins-scripts/check_flexlm.pl
+++ b/plugins-scripts/check_flexlm.pl
@@ -26,19 +26,15 @@
 # initial version: 9-10-99 Ernst-Dieter Martin edmt@infineon.com
 #
 # License: GPL
+# $Id$
 #
 
-BEGIN {
-        if ($0 =~ m/^(.*?)[\/\\]([^\/\\]+)$/) {
-                $runtimedir = $1;
-                $PROGNAME = $2;
-        }
-}
 
 use strict;
 use Getopt::Long;
 use vars qw($opt_V $opt_h $opt_F $verbose $PROGNAME);
-use lib $main::runtimedir;
+use FindBin ;
+use lib "$FindBin::Bin";
 use utils qw($TIMEOUT %ERRORS &print_revision &support &usage);
 
 sub print_help ();