texlive[64317] Build/extra/epstopdf/epstopdf.pl: doc siep windows

[commits+karl at tug.org]

Revision: 64317
          http://tug.org/svn/texlive?view=revision&revision=64317
Author:   karl
Date:     2022-09-08 03:25:27 +0200 (Thu, 08 Sep 2022)
Log Message:
-----------
doc siep windows search path change in 2.30

Modified Paths:
--------------
    trunk/Build/extra/epstopdf/epstopdf.pl

Modified: trunk/Build/extra/epstopdf/epstopdf.pl
===================================================================
--- trunk/Build/extra/epstopdf/epstopdf.pl	2022-09-07 23:50:31 UTC (rev 64316)
+++ trunk/Build/extra/epstopdf/epstopdf.pl	2022-09-08 01:25:27 UTC (rev 64317)
@@ -35,10 +35,13 @@
 #
 # emacs-page
 #
-my $ver = "2.29";
+my $ver = "2.30";
+#  2022/09/05 v2.30 (Siep Kroonenberg)
+#    * still use gswin32c if gswin64c.exe not on PATH.
 #  2022/08/29 v2.29 (Karl Berry)
+#    * use gswin64c.exe on 64-bit Windows.
 #  2018/09/17 v2.28 (Karl Berry)
-#    * use gswin64c on 64-bit Windows.
+#    * -dCompatibilityLevel=1.5 by default, since gs9.25 switched to 1.7.
 #  2017/09/14 v2.27 (Karl Berry)
 #    * extract value from --gsopt with $3 not $2 (extra regexp group
 #      added previously), and check it with ^(...)$ so anchors apply to all.
@@ -207,11 +210,18 @@
 ### ghostscript command name
 my $GS = "gs";
 if ($on_windows) {
+  $GS = "gswin32c";
   if ($ENV{"PROCESSOR_ARCHITECTURE"} eq "AMD64"
       || $ENV{"PROCESSOR_ARCHITEW6432"} eq "AMD64") {
-    $GS = "gswin64c";
-  } else {
-    $GS = "gswin32c";  
+    # prefer gswin64c.exe if on search path.
+    my @pdirs = split(/;/, $ENV{"PATH"});
+    foreach $d (@pdirs) {
+      $d = substr ($d, 1, -1) if (substr ($d,1,1) eq '"');
+      if (-f $d . "/gswin64c.exe") {
+        $GS = "gswin64c";
+        last;
+      }
+    }
   }
 }