zmena na pouzivani modulu warnings; pridana inicialnizace modulu FindBin

src/warden-server/bin/getClients.pl

-#!/usr/bin/perl -w
+#!/usr/bin/perl
 #
 # getClients.pl
 #
@@ -7,10 +7,13 @@
 # Use of this source is governed by a BSD-style license, see LICENSE file.
 
 use strict;
+use warnings;
+
 use Getopt::Std;
 use DBI;
 use DBD::mysql;
 use FindBin qw($RealBin $RealScript);
+FindBin::again();
 use lib "$RealBin/../lib";
 use WardenCommon;
 

src/warden-server/bin/getStatus.pl

-#!/usr/bin/perl -w
+#!/usr/bin/perl
 #
 # getStatus.pl
 #
@@ -7,11 +7,14 @@
 # Use of this source is governed by a BSD-style license, see LICENSE file.
 
 use strict;
+use warnings;
+
 use Getopt::Std;
 use DBI;
 use DBD::mysql;
 use Format::Human::Bytes;
 use FindBin qw($RealBin $RealScript);
+FindBin::again();
 use lib "$RealBin/../lib";
 use WardenCommon;
 

src/warden-server/bin/registerReceiver.pl

-#!/usr/bin/perl -w
+#!/usr/bin/perl
 #
 # registerReceiver.pl
 #
@@ -7,6 +7,8 @@
 # Use of this source is governed by a BSD-style license, see LICENSE file.
 
 use strict;
+use warnings;
+
 use Getopt::Std;
 use Switch;
 use DBI;
@@ -16,6 +18,7 @@ use Sys::Syslog qw(:DEFAULT setlogsock);
 Sys::Syslog::setlogsock('unix');
 use Carp;
 use FindBin qw($RealBin $RealScript);
+FindBin::again();
 use lib "$RealBin/../lib";
 use WardenCommon;
 

src/warden-server/bin/registerSender.pl

-#!/usr/bin/perl -w
+#!/usr/bin/perl
 #
 # registerSender.pl
 #
@@ -7,6 +7,8 @@
 # Use of this source is governed by a BSD-style license, see LICENSE file.
 
 use strict;
+use warnings;
+
 use Getopt::Std;
 use Switch;
 use DBI;
@@ -16,6 +18,7 @@ use Sys::Syslog qw(:DEFAULT setlogsock);
 Sys::Syslog::setlogsock('unix');
 use Carp;
 use FindBin qw($RealBin $RealScript);
+FindBin::again();
 use lib "$RealBin/../lib";
 use WardenCommon;
 

src/warden-server/bin/unregisterClient.pl

-#!/usr/bin/perl -w
+#!/usr/bin/perl
 #
 # unregisterClient.pl
 #
@@ -7,6 +7,8 @@
 # Use of this source is governed by a BSD-style license, see LICENSE file.
 
 use strict;
+use warnings;
+
 use Getopt::Std;
 use Switch;
 use DBI;
@@ -16,6 +18,7 @@ use Sys::Syslog qw(:DEFAULT setlogsock);
 Sys::Syslog::setlogsock('unix');
 use Carp;
 use FindBin qw($RealBin $RealScript);
+FindBin::again();
 use lib "$RealBin/../lib";
 use WardenCommon;