--- a/ProjectBuilder.st Wed Apr 13 22:02:35 2011 +0200
+++ b/ProjectBuilder.st Wed Jun 22 14:16:09 2011 +0200
@@ -540,6 +540,8 @@
"/ local build
"/ fileout the project
+ |fullPathName|
+
(package module ~= 'stx') ifTrue:[
(buildDirectory / package module) makeDirectory.
].
@@ -584,9 +586,14 @@
"/ ].
projectDefinitionClass forEachFileNameAndGeneratedContentsDo:[:fileName :fileContents |
- ((packageTargetDir / fileName) exists
- and:[ (packageTargetDir / fileName) contents = fileContents ]) ifFalse:[
- (packageTargetDir / fileName) contents:fileContents.
+ fullPathName := packageTargetDir construct:fileName.
+ fullPathName directory exists ifFalse:[
+ "take care for files like 'autopackage/default.apspec'"
+ fullPathName directory makeDirectory.
+ ].
+ (fullPathName exists
+ and:[ fullPathName contents = fileContents ]) ifFalse:[
+ fullPathName contents:fileContents.
].
].
].