Ticket #21082: patch-port-symlinks.diff

src/registry1.0/portimage.tcl

@@ -417 +417 @@
                         # well.
                         set directory [file dirname $theFile]
                         while { [lsearch -exact $files $directory] == -1 } { 
-                                lappend files $directory
+                                if { !([file type $directory] == "link") }  {
+                                    lappend files $directory
+                                }
                                 set directory [file dirname $directory]
                         }
                 } else {

src/registry1.0/portuninstall.tcl

@@ -197 +197 @@
                         # list as well.
                         set directory [file dirname $theFile]
                         while { [lsearch -exact $files $directory] == -1 } { 
-                                lappend files $directory
+                                if { !([file type $directory] == "link") } {
+                                    lappend files $directory
+                                }
                                 set directory [file dirname $directory]
                         }
                 }