patched bug id 1204636

[nagiosplug.git] / plugins-scripts / check_wave.pl

diff --git a/plugins-scripts/check_wave.pl b/plugins-scripts/check_wave.pl
index 6d58e4f4f49edc1de1a06e17b400902a0a9eed07..fe2170179164ecac68458ce49c273ae9fc8afd83 100755 (executable)
--- a/plugins-scripts/check_wave.pl
+++ b/plugins-scripts/check_wave.pl
@@ -1,11 +1,10 @@
-#! /usr/bin/perl -wT
+#!/usr/bin/perl -wT
 #
 # $Id$
 
 
 use strict;
-use FindBin;
-use lib "$Findbin::Bin";
+use lib utils.pm;
 use utils qw($TIMEOUT %ERRORS &print_revision &support);
 use vars qw($PROGNAME);
 use Getopt::Long;
@@ -13,6 +12,7 @@ use vars qw($opt_V $opt_h $verbose $opt_w $opt_c $opt_H);
 my (@test, $low1, $med1, $high1, $snr, $low2, $med2, $high2);
 my ($low, $med, $high, $lowavg, $medavg, $highavg, $tot, $ss);
 
+$PROGNAME = "check_wave";
 sub print_help ();
 sub print_usage ();