Bug 2505 - add strict and warnings to check_sysprefs
authorDonovan Jones <donovan@catalyst.net.nz>
Mon, 19 Apr 2010 03:13:10 +0000 (15:13 +1200)
committerChris Cormack <chrisc@catalyst.net.nz>
Wed, 21 Apr 2010 08:30:41 +0000 (20:30 +1200)
misc/check_sysprefs.pl

index 6823808..0d06fde 100755 (executable)
@@ -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);