[Pkg] The Trunk: Monticello-abc.513.mcz

[commits at source.squeak.org]

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'!