replace opendir with pathname_opendir

Author: xworld21

lib/LaTeXML/Post/LaTeXImages.pm

@@ -528,7 +528,7 @@ sub convert_image {
 
 sub DESTROY {
   if (my $tmpdir = File::Spec->tmpdir()) {
-    if (pathname_d $tmpdir && opendir(my $tmpdir_fh, $tmpdir)) {
+    if (pathname_d $tmpdir && pathname_opendir(my $tmpdir_fh, $tmpdir)) {
       my @empty_magick = grep { pathname_z $_ } map { "$tmpdir/$_" } readdir($tmpdir_fh);
       closedir($tmpdir_fh);
       pathname_unlink $_ foreach @empty_magick;

lib/LaTeXML/Util/Pack/Zip.pm

@@ -75,7 +75,7 @@ sub get_archive {
   my ($directory, $whatsout) = @_;
   # Zip and send back
   my $archive = Archive::Zip->new();
-  opendir(my $dirhandle, $directory)
+  pathname_opendir(my $dirhandle, $directory)
     # TODO: Switch to Error API
     # or Fatal('expected', 'directory', undef,
     # "Expected a directory to archive '$directory':", $@);

lib/LaTeXML/Util/Pathname.pm

@@ -430,7 +430,7 @@ sub candidate_pathnames {
           qr/^\Q$name\E\Q$ext\E$/]); } }
   # Now, combine; precedence to leading directories.
   foreach my $dir (@dirs) {
-    opendir(my $dir_handle, $dir) or next;
+    pathname_opendir(my $dir_handle, $dir) or next;
     my @dir_files = readdir($dir_handle);
     closedir($dir_handle);
     for my $local_file (@dir_files) {

lib/LaTeXML/Util/Test.pm

@@ -31,7 +31,7 @@ sub latexml_tests {
   if ($options{texlive_min} && (texlive_version() < $options{texlive_min})) {
     plan skip_all => "Requirement minimal texlive $options{texlive_min} not met.";
     return done_testing(); }
-  if (!opendir($DIR, $directory)) {
+  if (!pathname_opendir($DIR, $directory)) {
     # Can't read directory? Fail (assumed single) test.
     return do_fail($directory, "Couldn't read directory $directory:$!"); }
   else {