Ticket #30833: perl5-1.0.tcl.diff

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

@@ -202 +202 @@
     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]"
+        append ret "." [string repeat "0" [expr 3 - [string length $sub]]] $sub
         incr index 3
     }
     return $ret