Skip to content

Commit c32baba

Browse files
committed
Get all modules in getModules if provided-aliases are included
Get all existing modules in getModules if provided-aliases are included to then be able to filter on search query. Provided-aliases matching query will be found this way. Signed-off-by: Xavier Delaruelle <[email protected]>
1 parent 8277bdf commit c32baba

File tree

1 file changed

+5
-2
lines changed

1 file changed

+5
-2
lines changed

tcl/modfind.tcl.in

Lines changed: 5 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -3050,7 +3050,10 @@ proc getModules {dir {mod {}} {fetch_mtime 0} {search {}} {filter {}}} {
30503050
set hasmoddir [expr {$moddir ne {.}}]
30513051
set modroot [getModuleRootFromVersSpec $mod]
30523052

3053-
set earlyfilter [expr {!$contains && !$wild && $modroot eq [string\
3053+
# get all in case of contains search or if provided-aliases are included
3054+
set find_all [expr {$contains || [isEltInReport provided-alias 0]}]
3055+
3056+
set earlyfilter [expr {!$find_all && !$wild && $modroot eq [string\
30543057
map {* {} ? {}} $modroot]}]
30553058

30563059
# are result entries gathered in a resolution context ?
@@ -3068,7 +3071,7 @@ proc getModules {dir {mod {}} {fetch_mtime 0} {search {}} {filter {}}} {
30683071
# find modules by searching mod root name in order to catch all module
30693072
# related entries to correctly computed auto symbols afterward
30703073

3071-
if {$contains} {
3074+
if {$find_all} {
30723075
set findmod *
30733076
} else {
30743077
set findmod $modroot

0 commit comments

Comments
 (0)