match_file. better file list concatenating
This commit is contained in:
parent
edd1e3a370
commit
e8e9afb488
|
|
@ -4343,7 +4343,7 @@ proc sub_match_file { f {paths {}} } {
|
||||||
set match_file_dir_arr($jj) 1
|
set match_file_dir_arr($jj) 1
|
||||||
# puts "********** directory $jj"
|
# puts "********** directory $jj"
|
||||||
set sub_res [sub_match_file $f $j] ;# recursive call
|
set sub_res [sub_match_file $f $j] ;# recursive call
|
||||||
if {$sub_res != {} } {eval lappend res $sub_res}
|
if {$sub_res != {} } {set res [concat $res $sub_res]}
|
||||||
}
|
}
|
||||||
} else {
|
} else {
|
||||||
set fname [file tail $j]
|
set fname [file tail $j]
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue