Ticket #11873: perl5-versions.diff

_resources/port1.0/group/perl5-1.0.tcl

@@ -78 +78 @@
     }
 
     name                p5-[string tolower ${perl5.module}]
-    version             ${vers}
+    version             [convert_version $vers]
     categories          perl
     homepage            http://search.cpan.org/dist/${perl5.module}/
 
@@ -133 +133 @@
     destroot.destdir    destdir=${destroot}
 }
 
+# convert a floating point version to an rpm-style one
+proc convert_version {vers} {
+    set index [string first . $vers]
+    if {$index == -1} {
+        return $vers
+    }
+    set ret [string range $vers 0 [expr $index - 1]]
+    incr index
+    set fractional [string range $vers $index end]
+    set index 0
+    while {$index < [string length $fractional] || $index < 6} {
+        set sub [string range $fractional $index [expr $index + 2]]
+        if {[string length $sub] < 3} {
+            append sub [string repeat "0" [expr 3 - [string length $sub]]]
+        }
+        append ret ".[scan $sub %u]"
+        incr index 3
+    }
+    return $ret
+}