Bert Freudenberg uploaded a new version of Monticello to project The Trunk: http://source.squeak.org/trunk/Monticello-abc.513.mcz
==================== Summary ====================
Name: Monticello-abc.513 Author: abc Time: 4 July 2012, 12:38:23.822 pm UUID: 5d3797f7-7e0a-44f3-ae5f-7833dec37aa6 Ancestors: Monticello-eem.512
Be more strict when parsing file suffixes and version numbers.
=============== Diff against Monticello-eem.512 ===============
Item was changed: ----- Method: MCVersionName>>versionName (in category 'accessing') ----- versionName "Answer my version name as a ByteString, without the file suffix or any ancestor-attributes." | end | self isEmpty ifTrue: [^ String empty]. end := self indexOf: $( ifAbsent: [ + ('.mc#' startingAt: 1 match: self startingAt: self size - 3) + ifTrue: [self size - 3] + ifFalse: [self size + 1]]. - (self last between: $0 and: $9) - ifTrue: [ self size + 1 ] - ifFalse: [ self lastIndexOf: $. ifAbsent: [ self size + 1 ] ] ]. ^self first: end - 1!
Item was changed: ----- Method: MCVersionName>>versionNumber (in category 'accessing') ----- versionNumber "The Integer version number identified by this filename." + | v | + v := (self versionName copyAfterLast: $-) copyAfter: $.. + ^v isAllDigits + ifTrue: [ v asInteger ] + ifFalse: [ 0 ]! - ^ ((self versionName copyAfterLast: $-) copyAfter: $.) asInteger ifNil: [ 0 ]!
Item was removed: - (PackageInfo named: 'Monticello') postscript: 'nil'!