changed: #url:
authorClaus Gittinger <cg@exept.de>
Mon, 12 Apr 2010 13:42:32 +0200
changeset 568 073adf9e4ccc
parent 567 36bfb784fd07
child 569 f4660248cff6
changed: #url:
SVN__RepositoryConfiguration.st
--- 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>"
 !