sort values returned by readdir to improve reproducibility

Author: xworld21

lib/LaTeXML/Util/Pack.pm

@@ -15,7 +15,7 @@ use warnings;
 
 use LaTeXML::Util::Pathname;
 use File::Spec::Functions qw(catfile);
-use File::Path qw(rmtree);
+use File::Path            qw(rmtree);
 use IO::String;
 use Archive::Zip qw(:CONSTANTS :ERROR_CODES);
 
@@ -250,7 +250,7 @@ sub get_archive {
     # or Fatal('expected', 'directory', undef,
     # "Expected a directory to archive '$directory':", $@);
     or (print STDERR 'Fatal:expected:directory Failed to compress directory \'$directory\': $@');
-  my @entries = grep { /^[^.]/ } readdir($dirhandle);
+  my @entries = sort (grep { /^[^.]/ } readdir($dirhandle));
   closedir $dirhandle;
   my @files = grep { !/$archive_file_exclusion_regex/ && -f pathname_concat($directory, $_) } @entries;
   my @subdirs = grep { -d File::Spec->catdir($directory, $_) } @entries;

lib/LaTeXML/Util/Pathname.pm

@@ -399,6 +399,7 @@ sub candidate_pathnames {
     opendir(DIR, $dir) or next;
     my @dir_files = readdir(DIR);
     closedir(DIR);
+    my @dir_paths;
     for my $local_file (@dir_files) {
       for my $regex_pair (@regexes) {
         my ($i_regex, $regex) = @$regex_pair;
@@ -408,7 +409,8 @@ sub candidate_pathnames {
           if ($local_file =~ m/$regex/) {
             # if we are only interested in the first match, return it:
             return ($full_file) if $options{findfirst};
-            push(@paths, $full_file); } } } } }
+            push(@dir_paths, $full_file); } } } }
+    push(@paths, sort @dir_paths); }
   # Fallback: if no strict matches were found, return any existing case-insensitive matches
   # Defer the -f check until we are sure we need it, to keep the usual cases fast.
   return @paths ? @paths : @nocase_paths; }