care for cross-device rename
authorClaus Gittinger <cg@exept.de>
Tue, 07 Dec 1999 15:16:01 +0100
changeset 2466 66842be773bd
parent 2465 0567a72d20a5
child 2467 32ba79b6cbff
care for cross-device rename
ChangesBrowser.st
--- a/ChangesBrowser.st	Tue Dec 07 14:30:15 1999 +0100
+++ b/ChangesBrowser.st	Tue Dec 07 15:16:01 1999 +0100
@@ -1657,7 +1657,7 @@
 
         f := changeFileName asFilename.
         f renameTo:(f withSuffix:'bak').
-        tempfile renameTo:changeFileName.
+        tempfile renameOrCopyTo:changeFileName.
         anyChanges := false
     ].
     ^ true
@@ -3160,5 +3160,5 @@
 !ChangesBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.178 1999-12-01 20:01:21 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/ChangesBrowser.st,v 1.179 1999-12-07 14:16:01 cg Exp $'
 ! !