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>

diff --git a/C4/Installer/PerlModules.pm b/C4/Installer/PerlModules.pm
index 35cbfeb..affcd78 100644 (file)
--- 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;