From 4da02482e068cd3e282d77dbcd07147d02c708a5 Mon Sep 17 00:00:00 2001 From: Mark Tompsett 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 --- C4/Installer/PerlModules.pm | 1 + 1 file changed, 1 insertion(+) diff --git a/C4/Installer/PerlModules.pm b/C4/Installer/PerlModules.pm index 35cbfeb..affcd78 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.7.4