[l2h] Some problems and patches for Windows

[Shigeharu TAKENO]

shige 02/13 2020
----------------

I found other problems of config/config.pl of current latex2html
(github version) for Windows.

On Windows, path strings may include ':'. And since kpsewhich 
returns path strings with delimiter '/', not '\' which is used on 
Windows, we need to translate '/' to '\' in the path string 
before the estimation of it.

----- from here -----
--- config/config.pl.ORG	2019-12-29 21:03:30.834019000 +0900
+++ config/config.pl	2020-02-13 10:37:26.106649000 +0900
@@ -606,7 +606,9 @@
 # --------------------------------------------------------------------------
 
 my $extrapath = $opt{EXTRAPATH} || $prefs{EXTRAPATH} || '';
- at paths = grep(-d, uniquify(@paths, split(/[:;]/,$extrapath)));
+#@paths = grep(-d, uniquify(@paths, split(/[:;]/,$extrapath)));
+# 2020-02-10 shige
+ at paths = grep(-d, uniquify(@paths, split(/\Q$pathd/,$extrapath)));
 #logit("DEBUG: EXTRAPATH=$extrapath\n");
 #logit("DEBUG: PATH=" . join(':', at paths) . "\n");
 
@@ -906,10 +908,16 @@
 elsif(!$texpath && $kpath) {
   my @texpaths = ();
   chomp($kpath);
-  foreach(split(/[:;]/,$kpath)) {
+  #foreach(split(/[:;]/,$kpath)) {
+  # 2020-02-10 shige
+  foreach(split(/\Q$pathd/,$kpath)) {
     s/^!+//; # strip leading !'s
     s:[/\\]+$::; # strip trailing path delims
-    if(!/^[\.\w]/ && -d) {
+    # 2020-02-10 shige: path2os() is better ?
+    s:/:${dd}:g if L2hos->plat eq 'win32';
+    #if(!/^[\.\w]/ && -d) {
+    # shige: 2020-02-10
+    if(L2hos->is_absolute_path($_) && -d) {
       push(@texpaths,$_);
     }
   }
----- to here -----

+========================================================+
 Shigeharu TAKENO     NIigata Institute of Technology
                       kashiwazaki,Niigata 945-1195 JAPAN
 shige at iee.niit.ac.jp   TEL(&FAX): +81-257-22-8161
+========================================================+