[42665] trunk/base/src/upgrade_sources_conf_default.tcl

[jmr at macports.org]

Revision: 42665
          http://trac.macports.org/changeset/42665
Author:   jmr at macports.org
Date:     2008-11-28 16:06:34 -0800 (Fri, 28 Nov 2008)
Log Message:
-----------
Preserve attributes on sources.conf when upgrading.

Modified Paths:
--------------
    trunk/base/src/upgrade_sources_conf_default.tcl

Modified: trunk/base/src/upgrade_sources_conf_default.tcl
===================================================================
--- trunk/base/src/upgrade_sources_conf_default.tcl	2008-11-28 23:34:56 UTC (rev 42664)
+++ trunk/base/src/upgrade_sources_conf_default.tcl	2008-11-29 00:06:34 UTC (rev 42665)
@@ -60,8 +60,10 @@
 close $sourcesConfChannel
 
 if {$defaultWritten} {
+   set attributes [file attributes ${sourcesConf}]
    file rename ${sourcesConf} "${sourcesConf}.mpsaved"
    file rename ${tempfile} ${sourcesConf}
+   eval file attributes ${sourcesConf} $attributes
 }
 exit 0
 
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20081128/fafeca66/attachment.html>