Ticket #35976: patch-perl5-1.0-alpha-ending-vers.diff

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

@@ -213 +213 @@
 
 # convert a floating point version to an 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
@@ -230 +232 @@
         append ret ".[scan $sub %u]"
         incr index 3
     }
-    return $ret
+    return $ret$rest
 }