]>
Commit | Line | Data |
---|---|---|
e220cfe6 MT |
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 |