Bug 25707: (bug 11529 follow-up) Do not update marc mappings, print old mappings...

[koha-ffzg.git] / misc / check_sysprefs.pl

diff --git a/misc/check_sysprefs.pl b/misc/check_sysprefs.pl
index 91d0075..ce2e19e 100755 (executable)
--- a/misc/check_sysprefs.pl
+++ b/misc/check_sysprefs.pl
@@ -10,6 +10,7 @@ use warnings;
 
 use File::Find;
 
+use Koha::Script;
 use C4::Context;
 
 @ARGV = qw(.) unless @ARGV;
@@ -21,7 +22,7 @@ sub check_sys_pref {
     if ( !-d _ ) {
         my $name = $File::Find::name;
         if ( $name =~ /(\.pl|\.pm)$/ ) {
-            open( FILE, "$_" ) || die "cant open $name";
+            open( FILE, "$_" ) || die "can't open $name";
             while ( my $inp = <FILE> ) {
                 if ( $inp =~ /C4::Context->preference\((.*?)\)/ ) {
                     my $variable = $1;