1 files changed, 6 insertions, 8 deletions
diff --git a/plugins-scripts/check_disk_smb.pl b/plugins-scripts/check_disk_smb.pl
index d1b0b3d..9a66ed5 100755
--- a/plugins-scripts/check_disk_smb.pl
+++ b/plugins-scripts/check_disk_smb.pl
@@ -14,13 +14,10 @@
 #  Modified [warn] and [critical] parameters to accept format of nnn[M|G] to
 #  allow setting of limits in MBytes or GBytes.  Percentage settings for large
 #  drives is a pain in the butt
+# 2-May-2002 - SGhosh fix for embedded perl
-BEGIN {
+#
-        if ($0 =~ m/^(.*?)[\/\\]([^\/\\]+)$/) {
+# $Id$
-                $runtimedir = $1;
+#
-                $PROGNAME = $2;
-        }
-}
 require 5.004;
 use POSIX;
@@ -28,7 +25,8 @@ use strict;
 use Getopt::Long;
 use vars qw($opt_V $opt_h $opt_H $opt_s $opt_W $opt_u $opt_p $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);
 sub print_help ();

diff --git a/plugins-scripts/check_disk_smb.pl b/plugins-scripts/check_disk_smb.pl index d1b0b3d..9a66ed5 100755 --- a/plugins-scripts/check_disk_smb.pl +++ b/plugins-scripts/check_disk_smb.pl
@@ -14,13 +14,10 @@
14	# Modified [warn] and [critical] parameters to accept format of nnn[M\|G] to	14	# Modified [warn] and [critical] parameters to accept format of nnn[M\|G] to
15	# allow setting of limits in MBytes or GBytes. Percentage settings for large	15	# allow setting of limits in MBytes or GBytes. Percentage settings for large
16	# drives is a pain in the butt	16	# drives is a pain in the butt
17		17	# 2-May-2002 - SGhosh fix for embedded perl
18	BEGIN {	18	#
19	if ($0 =~ m/^(.*?)[\/\\]([^\/\\]+)$/) {	19	# $Id$
20	$runtimedir = $1;	20	#
21	$PROGNAME = $2;
22	}
23	}
24		21
25	require 5.004;	22	require 5.004;
26	use POSIX;	23	use POSIX;
@@ -28,7 +25,8 @@ use strict;
28	use Getopt::Long;	25	use Getopt::Long;
29	use vars qw($opt_V $opt_h $opt_H $opt_s $opt_W $opt_u $opt_p $opt_w $opt_c $verbose);	26	use vars qw($opt_V $opt_h $opt_H $opt_s $opt_W $opt_u $opt_p $opt_w $opt_c $verbose);
30	use vars qw($PROGNAME);	27	use vars qw($PROGNAME);
31	use lib $main::runtimedir;	28	use FindBin;
		29	use lib "$FindBin::Bin";
32	use utils qw($TIMEOUT %ERRORS &print_revision &support &usage);	30	use utils qw($TIMEOUT %ERRORS &print_revision &support &usage);
33		31
34	sub print_help ();	32	sub print_help ();