checkin from browser
authorClaus Gittinger <cg@exept.de>
Tue, 17 Sep 1996 01:30:27 +0200
changeset 21 3ae721af82c8
parent 20 0cc89097fd50
child 22 289347193c3e
checkin from browser
STXInstaller.st
--- a/STXInstaller.st	Tue Sep 17 00:05:40 1996 +0200
+++ b/STXInstaller.st	Tue Sep 17 01:30:27 1996 +0200
@@ -229,7 +229,8 @@
             actionTextHolder value:nil.
             actionTextHolder value:msg.
 
-            cmd := 'cp -r ../../' , fileName , ' ' , destDir.
+"/            cmd := 'cp -r ../../' , fileName , ' ' , destDir.
+            cmd := '(cd ../.. ; tar cf - ' , fileName , ') | (cd ' , destDir , ' ; tar xf -)'.
             commandTraceView showCR:cmd , ' ...'.
             cmd := 'sh -c "echo ; ' , cmd , ' 2>&1"' .