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

[toby at macports.org]

Revision: 48496
          http://trac.macports.org/changeset/48496
Author:   toby at macports.org
Date:     2009-03-23 14:12:39 -0700 (Mon, 23 Mar 2009)
Log Message:
-----------
Fix a few fd leaks.

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-03-23 20:52:58 UTC (rev 48495)
+++ trunk/base/src/macports1.0/macports.tcl	2009-03-23 21:12:39 UTC (rev 48496)
@@ -397,7 +397,8 @@
                         global macports::$option
                     }
                 }
-            }            
+            }
+            close $fd
         }
     }
     
@@ -413,6 +414,7 @@
                 }
             }
         }
+        close $fd
     }
     
     if {![info exists sources_conf]} {
@@ -438,6 +440,7 @@
             }
         }
     }
+    close $fd
     # Make sure the default port source is defined. Otherwise
     # [macports::getportresourcepath] fails when the first source doesn't
     # contain _resources.
@@ -471,6 +474,7 @@
                     }
                 }
             }
+            close $fd
         } else {
             ui_debug "$variants_conf does not exist, variants_conf setting ignored."
         }
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20090323/90f96c73/attachment.html>