Bug 17600: Standardize our EXPORT_OK

[srvgit] / misc / maintenance / check_syspref_cache.pl

diff --git a/misc/maintenance/check_syspref_cache.pl b/misc/maintenance/check_syspref_cache.pl
index 3de4b27..9328988 100755 (executable)
--- a/misc/maintenance/check_syspref_cache.pl
+++ b/misc/maintenance/check_syspref_cache.pl
@@ -16,8 +16,9 @@
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
 use Modern::Perl;
-use Getopt::Long;
-use Pod::Usage;
+use Getopt::Long qw( GetOptions );
+use Pod::Usage qw( pod2usage );
+use Encode qw( encode_utf8 );
 
 use Koha::Script;
 use Koha::Caches;
@@ -54,6 +55,6 @@ while  (my $pref = $prefs->next) {
     my $var = lc $pref->variable;
     my $cached_var = $syspref_cache->get_from_cache("syspref_$var");
     next unless defined $cached_var; #If not defined in cache we will fetch from DB so this case is OK
-    say sprintf( "%s: value in cache is '%s' and value in db is '%s'", $var, $cached_var, $pref->value )
+    say encode_utf8( sprintf( "%s: value in cache is '%s' and value in db is '%s'", $var, $cached_var, $pref->value ) )
       unless $cached_var eq $pref->value;
 }