fix recursive copy
authorMichael Beyl <mb@exept.de>
Wed, 14 Jan 2004 13:57:48 +0100
changeset 1779 f3237e4844d9
parent 1778 32befdc61270
child 1780 5f831e1fc839
fix recursive copy
STXInstaller.st
--- a/STXInstaller.st	Tue Jan 13 17:30:14 2004 +0100
+++ b/STXInstaller.st	Wed Jan 14 13:57:48 2004 +0100
@@ -912,6 +912,10 @@
     srcF := src asFilename.
     dstF := dst asFilename.
 
+    srcF directory exists ifFalse:[
+        ^ self
+    ].
+
     srcBaseName := srcF baseName.
     (srcBaseName startsWith:'.#') ifTrue:[^ self].
 
@@ -933,6 +937,7 @@
             ].
             commandTraceView endEntry.
         ].
+
         (srcF directory directoryContents ? #()) do:[:fileName |
             (srcBaseName match:fileName) ifTrue:[
                 (#(