[49188] trunk/base/src/macports1.0

[toby at macports.org]

Revision: 49188
          http://trac.macports.org/changeset/49188
Author:   toby at macports.org
Date:     2009-04-04 23:07:30 -0700 (Sat, 04 Apr 2009)
Log Message:
-----------
Make mportclose delete the port reference when the refcount goes to zero, instead of just removing it from the list of open ports.

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

Modified: trunk/base/src/macports1.0/macports.tcl
===================================================================
--- trunk/base/src/macports1.0/macports.tcl	2009-04-05 05:58:02 UTC (rev 49187)
+++ trunk/base/src/macports1.0/macports.tcl	2009-04-05 06:07:30 UTC (rev 49188)
@@ -1907,6 +1907,7 @@
         dlist_delete macports::open_mports $mport
         set workername [ditem_key $mport workername]
         interp delete $workername
+        ditem_delete $mport
     }
 }
 

Modified: trunk/base/src/macports1.0/macports_dlist.tcl
===================================================================
--- trunk/base/src/macports1.0/macports_dlist.tcl	2009-04-05 05:58:02 UTC (rev 49187)
+++ trunk/base/src/macports1.0/macports_dlist.tcl	2009-04-05 06:07:30 UTC (rev 49188)
@@ -124,6 +124,10 @@
 	return [macports_dlist::ditem_create]
 }
 
+proc ditem_delete {ditem} {
+	macports_dlist::ditem_delete $ditem
+}
+
 # ditem_key
 # Sets and returns the given key of the dependency item.
 #	ditem - the dependency item to operate on
@@ -334,6 +338,11 @@
 	return $ditem
 }
 
+proc ditem_delete {ditem} {
+	variable $ditem
+	unset $ditem
+}
+
 proc ditem_key {ditem args} {
 	variable $ditem
 	set nbargs [llength $args]
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.macosforge.org/pipermail/macports-changes/attachments/20090404/03af16d0/attachment.html>