Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
#BUGFIX by stefan
authorStefan Vogel <sv@exept.de>
Thu, 28 Mar 2019 16:00:29 +0100
changeset 24014 c8573fb77f5a
parent 24013 29c78a0786cd
child 24015 4f944b150c9a
#BUGFIX by stefan class: AbstractOperatingSystem class changed: #recursiveCreateDirectory:forEachCreatedDo: do not execut block if diretory already existed
AbstractOperatingSystem.st file | annotate | diff | comparison | revisions 
--- a/AbstractOperatingSystem.st	Thu Mar 28 15:50:36 2019 +0100
+++ b/AbstractOperatingSystem.st	Thu Mar 28 16:00:29 2019 +0100
@@ -3134,9 +3134,12 @@
 
     |osErrorHolder parentDirName|
 
+    (self isDirectory:dirName) ifTrue:[
+        ^ nil.
+    ].
 
     (osErrorHolder := self createDirectory:dirName) isNil ifTrue:[
-        "no error"
+        "directory was created"
         aOneArgBlock notNil ifTrue:[        
             aOneArgBlock value:dirName asFilename.
         ].
hg/stx-libbasic