Bug 19735: Add support for max_ver

[koha-ffzg.git] / C4 / Installer / PerlModules.pm

diff --git a/C4/Installer/PerlModules.pm b/C4/Installer/PerlModules.pm
index f76bb4a..3f13c47 100644 (file)
--- a/C4/Installer/PerlModules.pm
+++ b/C4/Installer/PerlModules.pm
@@ -60,10 +60,20 @@ sub versions_info {
 
                 my $module_infos = {
                     cur_ver  => 0,
-                    min_ver  => $reqs->requirements_for_module($module),
                     required => $type eq 'requires',
                 };
 
+                my $vers = $reqs->structured_requirements_for_module($module);
+                for my $req (@$vers) {
+                    if ( $req->[0] eq '>=' || $req->[0] eq '>' ) {
+                        $module_infos->{min_ver} = $req->[1];
+                    } elsif ( $req->[0] eq '<=' || $req->[0] eq '<' ) {
+                        $module_infos->{max_ver} = $req->[1];
+                    } else {
+                        push @{$module_infos->{exc_ver}}, $req->[1];
+                    }
+                }
+
                 my $attr;
 
                 $Readonly::XS::MAGIC_COOKIE="Do NOT use or require Readonly::XS unless you're me.";