Reuse ems_required variable in getModules

xdelaruelle · xdelaruelle · commit 48eeb0873014 · 2023-06-11T19:09:30.000+02:00
diff --git a/tcl/modfind.tcl.in b/tcl/modfind.tcl.in
@@ -2666,8 +2666,7 @@ proc getModules {dir {mod {}} {fetch_mtime 0} {search {}} {filter {}}} {
 
       # if no indepth mode search, pass the depth level of the search query
       # unless EMS need to be performed (findModules should fetch everything)
-      set depthlvl [expr {$indepth || [isExtraMatchSearchRequired $mod] ? 0 :\
-         $querydepth + 1}]
+      set depthlvl [expr {$indepth || $ems_required ? 0 : $querydepth + 1}]
 
       array set found_list [findModules $dir $findmod $depthlvl $fetch_mtime]
    }

Original file line number	Diff line number	Diff line change
`@@ -2666,8 +2666,7 @@ proc getModules {dir {mod {}} {fetch_mtime 0} {search {}} {filter {}}} {`
`2666`	`2666`
`2667`	`2667`	`# if no indepth mode search, pass the depth level of the search query`
`2668`	`2668`	`# unless EMS need to be performed (findModules should fetch everything)`
`2669`		`- set depthlvl [expr {$indepth \|\| [isExtraMatchSearchRequired $mod] ? 0 :\`
`2670`		`- $querydepth + 1}]`
	`2669`	`+ set depthlvl [expr {$indepth \|\| $ems_required ? 0 : $querydepth + 1}]`
`2671`	`2670`
`2672`	`2671`	`array set found_list [findModules $dir $findmod $depthlvl $fetch_mtime]`
`2673`	`2672`	`}`