# 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;
}
$sth->finish();
}
-
+
find(\&check_sys_pref,@ARGV);