8 lines
215 B
Smalltalk
8 lines
215 B
Smalltalk
|
accessing
|
||
|
|
correctMetadataUrl
|
||
|
|
self metadata keysAndValuesDo: [ :key :value |
|
||
|
|
(value includesSubstring: '42l.fr')
|
||
|
|
ifTrue: [ self metadata at: key put: (value copyReplaceAll: '42l.fr' with: 'net' )]
|
||
|
|
].
|
||
|
|
^ self
|