Ticket #17473: portinstall.tcl.diff

portinstall.tcl

@@ -128 +128 @@
 }
 
 proc install_main {args} {
-        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
+        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
 
         # Begin the registry entry
         set regref [registry_new $portname $portversion $portrevision $portvariants $epoch]
@@ -158 +158 @@
                 registry_prop_store $regref depends_lib $depends_lib
                 registry_register_deps $depends_lib $portname
         }
+        if {[info exists poison_version]} {
+                registry_prop_store $regref poison_version ${poison_version}
+        }
     if {[info exists installPlist]} {
                 registry_prop_store $regref contents [registry_fileinfo_for_index $installPlist]
                 if { [registry_prop_retr $regref installtype] != "image" } {