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, 9 deletions

diff --git a/plugins-scripts/check_ircd.pl b/plugins-scripts/check_ircd.pl
index e4c4bd0..098a8e7 100755
--- a/plugins-scripts/check_ircd.pl
+++ b/plugins-scripts/check_ircd.pl
@@ -38,15 +38,8 @@
 #                               with perl -wT and 'use strict'
 #
 # test using check_ircd.pl (irc-2.mit.edu|irc.erols.com|irc.core.com)
+# 2002/05/02    SG              Fixed for Embedded Perl
 #
-# ------------------------------------------------------------------[ Begin ]--
-
-BEGIN {
-        if ($0 =~ m/^(.*?)[\/\\]([^\/\\]+)$/) {
-                $runtimedir = $1;
-                $PROGNAME = $2;
-        }
-}
 
 # ----------------------------------------------------------------[ Require ]--
 
@@ -59,7 +52,8 @@ use strict;
 use Getopt::Long;
 use vars qw($opt_V $opt_h $opt_t $opt_p $opt_H $opt_w $opt_c $verbose);
 use vars qw($PROGNAME);
-use lib $main::runtimedir;
+use FindBin;
+use lib "$FindBin::Bin";
 use utils qw($TIMEOUT %ERRORS &print_revision &support &usage);
 
 # ----------------------------------------------------[ Function Prototypes ]--