diff --git a/src/warden-server/lib/Warden.pm b/src/warden-server/lib/Warden.pm index 08051bc7b3c9da0668a7039b282b1be0e9c6fa7a..37593b132d847794b33a9f091a70a90b0154adf4 100755 --- a/src/warden-server/lib/Warden.pm +++ b/src/warden-server/lib/Warden.pm @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/perl # # Warden.pm # @@ -9,6 +9,8 @@ package Warden; use strict; +use warnings; + use DBI; use DBD::mysql; use Sys::Syslog qw(:DEFAULT setlogsock); diff --git a/src/warden-server/lib/WardenCommon.pm b/src/warden-server/lib/WardenCommon.pm index cd56daf937a13f31e3222429c137989c00fa95ff..26e90a4a54ce9b0ac8536c8d7d34fc08bfd5877c 100755 --- a/src/warden-server/lib/WardenCommon.pm +++ b/src/warden-server/lib/WardenCommon.pm @@ -1,4 +1,4 @@ -#!/usr/bin/perl -w +#!/usr/bin/perl # # WardenCommon.pm # @@ -9,7 +9,8 @@ package WardenCommon; use strict; -use File::Basename; +use warnings; + use Sys::Syslog qw(:DEFAULT setlogsock); Sys::Syslog::setlogsock('unix'); use Carp;