texlive[64317] Build/extra/epstopdf/epstopdf.pl: doc siep windows
commits+karl at tug.org
commits+karl at tug.org
Thu Sep 8 03:25:27 CEST 2022
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;
+ }
+ }
}
}
More information about the tex-live-commits
mailing list.