author | Michael Beyl <mb@exept.de> |
Wed, 14 Jan 2004 13:57:48 +0100 | |
changeset 1779 | f3237e4844d9 |
parent 1778 | 32befdc61270 |
child 1780 | 5f831e1fc839 |
STXInstaller.st | file | annotate | diff | comparison | revisions |
--- 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:[ (#(