@@ -, +, @@ -- before patch Readonly::XS is 0 -- after patch it's listed as 0.01 (the minimum version) --- C4/Installer/PerlModules.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) --- a/C4/Installer/PerlModules.pm +++ a/C4/Installer/PerlModules.pm @@ -81,16 +81,18 @@ sub version_info { eval "require $module"; my $pkg_version = $module->can("VERSION") ? $module->VERSION : 0; my $min_version = $PERL_DEPS->{$module}->{'min_ver'} // 0; + # Readonly.pm tells a whitelie, and so do we. + if ($module eq 'Readonly::XS' && !($] < 5.008)) { $pkg_version = $min_version; $@=q{}; } my ( $cur_ver, $upgrade, $status ); if ($@) { ( $cur_ver, $upgrade, $status ) = ( 0, 0, 'missing' ); } elsif ( version->parse("$pkg_version") < version->parse("$min_version") ) { - ( $cur_ver, $upgrade, $status ) = ( $module->VERSION, 1, 'upgrade' ); + ( $cur_ver, $upgrade, $status ) = ( $pkg_version, 1, 'upgrade' ); } else { - ( $cur_ver, $upgrade, $status ) = ( $module->VERSION, 0, 'current' ); + ( $cur_ver, $upgrade, $status ) = ( $pkg_version, 0, 'current' ); } return { --