@ -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);