Bug 32798: Update parameter passed to Koha::Biblio::Metadata->record

[srvgit] / misc / check_sysprefs.pl

diff --git a/misc/check_sysprefs.pl b/misc/check_sysprefs.pl
index ce2e19e..aed792c 100755 (executable)
--- a/misc/check_sysprefs.pl
+++ b/misc/check_sysprefs.pl
@@ -8,7 +8,7 @@
 use strict;
 use warnings;
 
-use File::Find;
+use File::Find qw( find );
 
 use Koha::Script;
 use C4::Context;
@@ -22,8 +22,8 @@ sub check_sys_pref {
     if ( !-d _ ) {
         my $name = $File::Find::name;
         if ( $name =~ /(\.pl|\.pm)$/ ) {
-            open( FILE, "$_" ) || die "can't open $name";
-            while ( my $inp = <FILE> ) {
+            open( my $fh, '<', $_ ) || die "can't open $name";
+            while ( my $inp = <$fh> ) {
                 if ( $inp =~ /C4::Context->preference\((.*?)\)/ ) {
                     my $variable = $1;
                     $variable =~ s /\'|\"//g;
@@ -37,7 +37,7 @@ sub check_sys_pref {
 "$name has a reference to $variable, this does not exist in the database\n";
                 }
             }
-            close FILE;
+            close $fh;
         }
     }
     $sth->finish();