From 76773a03ec7a43dc80bd38d4c8007fe31ced02fe Mon Sep 17 00:00:00 2001
From: Tomas Plesnik <plesnik@ics.muni.cz>
Date: Tue, 26 Mar 2013 11:05:32 +0100
Subject: [PATCH] zmena na pouzivani modulu warnings; pridana inicialnizace
 modulu FindBin

---
 src/warden-server/bin/getClients.pl       | 5 ++++-
 src/warden-server/bin/getStatus.pl        | 5 ++++-
 src/warden-server/bin/registerReceiver.pl | 5 ++++-
 src/warden-server/bin/registerSender.pl   | 5 ++++-
 src/warden-server/bin/unregisterClient.pl | 5 ++++-
 5 files changed, 20 insertions(+), 5 deletions(-)

diff --git a/src/warden-server/bin/getClients.pl b/src/warden-server/bin/getClients.pl
index 128faa8..0f1fd34 100755
--- a/src/warden-server/bin/getClients.pl
+++ b/src/warden-server/bin/getClients.pl
@@ -1,4 +1,4 @@
-#!/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;
 
diff --git a/src/warden-server/bin/getStatus.pl b/src/warden-server/bin/getStatus.pl
index ccfa77e..51fa296 100755
--- a/src/warden-server/bin/getStatus.pl
+++ b/src/warden-server/bin/getStatus.pl
@@ -1,4 +1,4 @@
-#!/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;
 
diff --git a/src/warden-server/bin/registerReceiver.pl b/src/warden-server/bin/registerReceiver.pl
index 59f84a5..e82a651 100755
--- a/src/warden-server/bin/registerReceiver.pl
+++ b/src/warden-server/bin/registerReceiver.pl
@@ -1,4 +1,4 @@
-#!/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;
 
diff --git a/src/warden-server/bin/registerSender.pl b/src/warden-server/bin/registerSender.pl
index 5146775..f75c906 100755
--- a/src/warden-server/bin/registerSender.pl
+++ b/src/warden-server/bin/registerSender.pl
@@ -1,4 +1,4 @@
-#!/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;
 
diff --git a/src/warden-server/bin/unregisterClient.pl b/src/warden-server/bin/unregisterClient.pl
index a17f86a..83b969d 100755
--- a/src/warden-server/bin/unregisterClient.pl
+++ b/src/warden-server/bin/unregisterClient.pl
@@ -1,4 +1,4 @@
-#!/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;
 
-- 
GitLab