From 1726a0625314d59fa784b064d11da62ead954ac9 Mon Sep 17 00:00:00 2001 From: Donovan Jones Date: Mon, 19 Apr 2010 15:13:10 +1200 Subject: [PATCH] Bug 2505 - add strict and warnings to check_sysprefs --- misc/check_sysprefs.pl | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/misc/check_sysprefs.pl b/misc/check_sysprefs.pl index 68238087e9..0d06fde901 100755 --- a/misc/check_sysprefs.pl +++ b/misc/check_sysprefs.pl @@ -5,10 +5,11 @@ # export PERL5LIB # then ./check_sysprefs.pl path (if path is blank it will use .) -#use strict; -#use warnings; FIXME - Bug 2505 +use strict; +use warnings; use File::Find; + use C4::Context; @ARGV = qw(.) unless @ARGV; @@ -38,5 +39,5 @@ sub check_sys_pref { } $sth->finish(); } - + find(\&check_sys_pref,@ARGV); -- 2.39.5