Changeset 1039 for trunk/base


Ignore:
Timestamp:
Oct 12, 2002, 6:30:46 PM (21 years ago)
Author:
jkh
Message:

Fix a bug where I was actually storing the uninstall proc, not the
custom pkg_uninstall proc (whoops!)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/base/src/port1.0/portregistry.tcl

    r1015 r1039  
    230230        registry_store $rhandle $x
    231231    }
    232     if {[info proc uninstall] == "uninstall"} {
    233         registry_store $rhandle [list uninstall [proc_disasm uninstall]]
     232    if {[info proc pkg_uninstall] == "pkg_uninstall"} {
     233        registry_store $rhandle [list uninstall [proc_disasm pkg_uninstall]]
    234234    }
    235235    registry_close $rhandle
Note: See TracChangeset for help on using the changeset viewer.