Changeset 14725


Ignore:
Timestamp:
Oct 20, 2005, 4:15:38 PM (15 years ago)
Author:
pguyot (Paul Guyot)
Message:

As a temporary fix, only remove dep links when the last version is uninstalled.

Bug: #4700
Submitted by:
Reviewed by:
Approved by:
Obtained from:

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/registry1.0/portuninstall.tcl

    r14160 r14725  
    11# et:ts=4
    22# portuninstall.tcl
    3 # $Id: portuninstall.tcl,v 1.12 2005/09/19 20:51:48 jberry Exp $
     3# $Id: portuninstall.tcl,v 1.13 2005/10/20 16:15:38 pguyot Exp $
    44#
    55# Copyright (c) 2002 - 2003 Apple Computer, Inc.
     
    6565        }
    6666
     67        # determine if it's the only installed port with that name or not.
     68        if {$v == ""} {
     69                set nb_versions_installed 1
     70        } else {
     71                set ilist [registry::installed $portname ""]
     72                set nb_versions_installed [llength $ilist]
     73        }
     74
    6775        set ref [registry::open_entry $portname $version $revision $variants]
    6876
     
    123131        }
    124132
    125         # Remove the port from the deps_map
    126         registry::unregister_dependencies $portname
     133        # Remove the port from the deps_map if only one version was installed.
     134        # This is a temporary fix for a deeper problem that is that the dependency
     135        # map doesn't take the port version into account (but should).
     136        # Fixing it means transitionning to a new dependency map format.
     137        if {$nb_versions_installed == 1} {
     138                registry::unregister_dependencies $portname
     139        }
    127140
    128141        # Now look for a contents list
Note: See TracChangeset for help on using the changeset viewer.