Sort modules in JSON output as done on regular output

Signed-off-by: Xavier Delaruelle <[email protected]>

Author: xdelaruelle

NEWS.rst

@@ -138,6 +138,7 @@ Modules 5.6.0 (not yet released)
 * :mfcmd:`setenv` modulefile command now supports environment variable value
   containing newline character. Exception is made for *csh* and *tcsh* shells
   where newline characters are chopped from value. (fix issue #557)
+* Sort modules in JSON output as done on regular output.
 
 .. _Security policy: https://github.com/envmodules/modules/blob/main/SECURITY.md
 .. _Modules chat room: https://matrix.to/#/#modules:matrix.org

tcl/report.tcl.in

@@ -1579,6 +1579,10 @@ proc reportModules {search_queries header hsgrkey hstyle show_mtime show_idx\
 
    set len_list {}
    set max_len 0
+   # dictionary-sort results unless if output order is specified
+   if {![llength $mod_list_order]} {
+      set clean_list [lsort -dictionary $clean_list]
+   }
    if {$json} {
       ##nagelfar ignore Found constant
       upvar 0 clean_list display_list
@@ -1587,10 +1591,6 @@ proc reportModules {search_queries header hsgrkey hstyle show_mtime show_idx\
       }
    } else {
       set display_list {}
-      # dictionary-sort results unless if output order is specified
-      if {![llength $mod_list_order]} {
-         set clean_list [lsort -dictionary $clean_list]
-      }
       foreach disp $clean_list {
          # compute display element length list on sorted result
          lappend display_list $sgrmap($disp)