Ticket #17473: portinstall.tcl.diff

File portinstall.tcl.diff, 1.2 KB (added by MarcusCalhoun-Lopez (Marcus Calhoun-Lopez), 16 years ago)
  • portinstall.tcl

    old new  
    128128}
    129129
    130130proc install_main {args} {
    131         global portname portversion portpath categories description long_description homepage depends_run installPlist package-install uninstall workdir worksrcdir pregrefix UI_PREFIX destroot portrevision maintainers ports_force portvariants targets depends_lib PortInfo epoch
     131        global portname portversion portpath categories description long_description homepage depends_run installPlist package-install uninstall workdir worksrcdir pregrefix UI_PREFIX destroot portrevision maintainers ports_force portvariants targets depends_lib PortInfo epoch poison_version
    132132
    133133        # Begin the registry entry
    134134        set regref [registry_new $portname $portversion $portrevision $portvariants $epoch]
     
    158158                registry_prop_store $regref depends_lib $depends_lib
    159159                registry_register_deps $depends_lib $portname
    160160        }
     161        if {[info exists poison_version]} {
     162                registry_prop_store $regref poison_version ${poison_version}
     163        }
    161164    if {[info exists installPlist]} {
    162165                registry_prop_store $regref contents [registry_fileinfo_for_index $installPlist]
    163166                if { [registry_prop_retr $regref installtype] != "image" } {