unmaintained/perl-mail-clamav/0001.patch


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

--- a/Makefile.PL
+++ b/Makefile.PL
@@ -51,7 +51,23 @@
     }
 
     my $clver = get_cl_version();
-    return warn_cl_version_bad() if $clver lt $minclversion;
+    my @m_clver = split /\./, $clver;
+    my @m_minclversion = split /\./, $minclversion;
+    if ($m_clver[0] < $m_minclversion[0]) {
+        return warn_cl_version_bad() if $m_clver[0] lt $m_minclversion[0];
+    } else {
+        if ($m_clver[0] = $m_minclversion[0]) { 
+            if ($m_clver[1] < $m_minclversion[1]) {
+                return warn_cl_version_bad() if $m_clver[1] lt $m_minclversion[1];
+            } else {
+                if ($m_clver[1] = $m_minclversion[1]) {
+                    if ($m_clver[2] < $m_minclversion[2]) {
+                        return warn_cl_version_bad() if $m_clver[2] lt $m_minclversion[2];
+                    }
+                }
+            }
+        }
+    }
 
     my $inc = get_cl_inc_paths();
     my $libs = get_cl_libs();