dejagnu/patches/dejagnu-1.4.4-utils-speedup.patch

   1 --- dejagnu-1.4.4/lib/utils.exp 2009-10-16 12:58:38.000000000 +0200
   2 +++ dejagnu-1.4.4/lib/utils.exp 2010-01-21 21:12:54.144855458 +0100
   3 @@ -106,7 +106,7 @@ proc find { rootdir pattern } {
   4      foreach i $dirs {
   5         verbose "Looking in $i" 3
   6         foreach match [glob -nocomplain $i/$pattern] {
   7 -           if ![file isdirectory $match] {
   8 +           if {![file isdirectory $match]} {
   9                 lappend files $match
  10                 verbose "Adding $match to file list" 3
  11             }
  12 @@ -216,7 +216,7 @@ proc prune { list pattern } {
  13      set tmp {}
  14      foreach i $list {
  15         verbose "Checking pattern \"$pattern\" against $i" 3
  16 -       if ![string match $pattern $i] {
  17 +       if {![string match $pattern $i]} {
  18             lappend tmp $i
  19         } else {
  20             verbose "Removing element $i from list" 3