Ticket #292: portall.tcl.diff

base/src/port/portall.tcl

@@ -11 +11 @@
 proc port_traverse {func {dir .}} {
     set pwd [pwd]
     if [catch {cd $dir} err] {
-        ui_error $err
-        return
+                ui_error $err
+                return
     }
     foreach name [readdir .] {
-        if {[string match $name .] || [string match $name ..]} {
-            continue
-        }
-        if [file isdirectory $name] {
-            port_traverse $func $name
-        } else {
-            if [string match $name Portfile] {
-                catch {eval $func {[file join $pwd $dir]}}
-            }
-        }
+                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
+                } else {
+                        if [string match $name Portfile] {
+                                catch {eval $func {[file join $pwd $dir]}}
+                }
+                }
     }
     cd $pwd
 }