[61698] trunk/base/src/macports1.0/macports.tcl

[jmr at macports.org]

Revision: 61698
          http://trac.macports.org/changeset/61698
Author:   jmr at macports.org
Date:     2009-12-18 23:53:12 -0800 (Fri, 18 Dec 2009)
Log Message:
-----------
close log files (#22944)

Modified Paths:
--------------
    trunk/base/src/macports1.0/macports.tcl

Modified: trunk/base/src/macports1.0/macports.tcl
===================================================================
--- trunk/base/src/macports1.0/macports.tcl	2009-12-19 02:46:23 UTC (rev 61697)
+++ trunk/base/src/macports1.0/macports.tcl	2009-12-19 07:53:12 UTC (rev 61698)
@@ -129,6 +129,9 @@
     if {[file exists $::debuglogname]} {
         file delete -force $::debuglogname
     }
+    if {[info exists ::debuglog]} {
+        close $::debuglog
+    }
     set ::debuglog [open $::debuglogname w]
     puts $::debuglog "version:1"
     # Add our log-channel to all already initialized channels
@@ -149,6 +152,7 @@
     if {[file exists $::debuglogname]} {
         file delete -force $::debuglogname
     }
+    close $::debuglog
     set ::debuglog [open $::debuglogname w]
     puts $::debuglog "version:1"
 } 
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20091218/8513ca5e/attachment.html>