From 6d59eee2bae08799358a8ea4dc17d4dd861784c4 Mon Sep 17 00:00:00 2001
From: Mark Tompsett <mtompset@hotmail.com>
Date: Wed, 28 Mar 2018 22:40:09 +0000
Subject: [PATCH] Bug 20103: Readonly::XS is completely bogus post perl 5.8

A ha! Lie about who we are, and the module will return a version.

./koha_perl_deps.pl -a
-- before patch Readonly::XS is 0
-- after patch it has a version number.
run koha qa test tools

Signed-off-by: Victor Grousset <victor.grousset@biblibre.com>

Signed-off-by: Katrin Fischer <katrin.fischer.83@web.de>

Signed-off-by: Jonathan Druart <jonathan.druart@bugs.koha-community.org>
---
 C4/Installer/PerlModules.pm | 1 +
 1 file changed, 1 insertion(+)

diff --git a/C4/Installer/PerlModules.pm b/C4/Installer/PerlModules.pm
index 35cbfebeea..affcd78365 100644
--- a/C4/Installer/PerlModules.pm
+++ b/C4/Installer/PerlModules.pm
@@ -78,6 +78,7 @@ sub version_info {
     my ( $self, $module ) = @_;
     return -1 unless grep { /^$module$/ } keys(%$PERL_DEPS);
 
+    $Readonly::XS::MAGIC_COOKIE="Do NOT use or require Readonly::XS unless you're me.";
     eval "require $module";
     my $pkg_version = $module->can("VERSION") ? $module->VERSION : 0;
     my $min_version = $PERL_DEPS->{$module}->{'min_ver'} // 0;
-- 
2.39.5