Ticket #35976: patch-perl5-1.0-alpha-ending-vers.diff
File patch-perl5-1.0-alpha-ending-vers.diff, 872 bytes (added by pixilla (Bradley Giesbrecht), 12 years ago) |
---|
-
_resources/port1.0/group/perl5-1.0.tcl
213 213 214 214 # convert a floating point version to an dotted-integer one 215 215 proc perl5_convert_version {vers} { 216 regexp {[^0-9\.]*$} $vers rest 217 set vers [string range $vers 0 end-[string length ${rest}]] 216 218 set index [string first . $vers] 217 219 set other_dot [string first . [string range $vers [expr $index + 1] end]] 218 220 if {$index == -1 || $other_dot != -1} { 219 return $vers 221 return $vers$rest 220 222 } 221 223 set ret [string range $vers 0 [expr $index - 1]] 222 224 incr index … … 230 232 append ret ".[scan $sub %u]" 231 233 incr index 3 232 234 } 233 return $ret 235 return $ret$rest 234 236 }