Ticket #290: portindex.tcl.diff

File portindex.tcl.diff, 1.2 KB (added by jpm@…, 22 years ago)

diff to add more directories to avoid

  • base/src/port/portindex.tcl

    RCS file: /Volumes/src/cvs/od/proj/darwinports/base/src/port/portindex.tcl,v
    retrieving revision 1.12
    diff -u -r1.12 portindex.tcl
     
    1919proc port_traverse {func {dir .} {cwd ""}} {
    2020    set pwd [pwd]
    2121    if [catch {cd $dir} err] {
    22         puts $err
    23         return
     22                puts $err
     23                return
    2424    }
    2525    foreach name [readdir .] {
    26         if {[string match $name .] || [string match $name ..]} {
    27             continue
    28         }
    29         if [file isdirectory $name] {
    30             port_traverse $func $name [file join $cwd $name]
    31         } else {
    32             if [string match $name Portfile] {
    33                 $func $cwd
    34             }
    35         }
     26                if {[string match $name "."] ||
     27                        [string match $name ".."] ||
     28                        [string match $name "CVS"] ||
     29                        [string match $name "files"] ||
     30                        [string match $name "work"]} {
     31                        continue
     32                }
     33                if {[file isdirectory $name]} {
     34                        port_traverse $func $name [file join $cwd $name]
     35                } else {
     36                        if [string match $name Portfile] {
     37                                $func $cwd
     38                        }
     39                }
    3640    }
    3741    cd $pwd
    3842}