Ticket #43727: patch-port-group-per5-version-chars.diff

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

@@ -220 +220 @@
 
 # Convert a floating-point version to a dotted-integer one.
 proc perl5_convert_version {vers} {
+    regexp {[^0-9\.]*$} $vers rest
+    set vers [string range $vers 0 end-[string length ${rest}]]
     set index [string first . $vers]
     set other_dot [string first . [string range $vers [expr $index + 1] end]]
     if {$index == -1 || $other_dot != -1} {
-        return $vers
+        return $vers$rest
     }
     set ret [string range $vers 0 [expr $index - 1]]
     incr index
@@ -237 +239 @@
         append ret ".[scan $sub %u]"
         incr index 3
     }
-    return $ret
+    return $ret$rest
 }