--- a/SVN__RepositoryConfiguration.st Fri Dec 04 16:43:57 2009 +0100
+++ b/SVN__RepositoryConfiguration.st Mon Apr 12 13:42:32 2010 +0200
@@ -48,9 +48,12 @@
| givenUrl |
givenUrl := aStringOrUrl asURL.
- givenUrl isValidSvnRepositoryUrl
- ifFalse: [ self error: 'Invalid repository URL' ].
- url := givenUrl.
+ givenUrl isValidSvnRepositoryUrl ifTrue:[
+ url := givenUrl.
+ ] ifFalse: [
+ self error: 'Invalid repository URL' mayProceed:true.
+ url := nil.
+ ].
"Modified: / 16-08-2009 / 16:42:20 / Jan Vrany <vranyj1@fel.cvut.cz>"
!