Ticket #21082: patch-port-symlinks.diff

File patch-port-symlinks.diff, 1.3 KB (added by dbevans (David B. Evans), 15 years ago)

Rough patch

  • src/registry1.0/portimage.tcl 

    Only in src: local
Only in src/port: port.tcl.orig
Only in src/port: port.tcl.rej
diff -ur ../Macports-1.8.0/src/registry1.0/portimage.tcl src/registry1.0/portimage.tcl
    old new  
    417417                        # well.
    418418                        set directory [file dirname $theFile]
    419419                        while { [lsearch -exact $files $directory] == -1 } {
    420                                 lappend files $directory
     420                                if { !([file type $directory] == "link") }  {
     421                                    lappend files $directory
     422                                }
    421423                                set directory [file dirname $directory]
    422424                        }
    423425                } else {

  • src/registry1.0/portuninstall.tcl 

    diff -ur ../Macports-1.8.0/src/registry1.0/portuninstall.tcl src/registry1.0/portuninstall.tcl
    old new  
    197197                        # list as well.
    198198                        set directory [file dirname $theFile]
    199199                        while { [lsearch -exact $files $directory] == -1 } {
    200                                 lappend files $directory
     200                                if { !([file type $directory] == "link") } {
     201                                    lappend files $directory
     202                                }
    201203                                set directory [file dirname $directory]
    202204                        }
    203205                }