Ticket #290: portindex.tcl.diff

base/src/port/portindex.tcl

@@ -19 +19 @@
 proc port_traverse {func {dir .} {cwd ""}} {
     set pwd [pwd]
     if [catch {cd $dir} err] {
-        puts $err
-        return
+                puts $err
+                return
     }
     foreach name [readdir .] {
-        if {[string match $name .] || [string match $name ..]} {
-            continue
-        }
-        if [file isdirectory $name] {
-            port_traverse $func $name [file join $cwd $name]
-        } else {
-            if [string match $name Portfile] {
-                $func $cwd 
-            }
-        }
+                if {[string match $name "."] ||
+                        [string match $name ".."] ||
+                        [string match $name "CVS"] ||
+                        [string match $name "files"] ||
+                        [string match $name "work"]} {
+                        continue
+                }
+                if {[file isdirectory $name]} {
+                        port_traverse $func $name [file join $cwd $name]
+                } else {
+                        if [string match $name Portfile] {
+                                $func $cwd 
+                        }
+                }
     }
     cd $pwd
 }