texlive[71782] trunk: epstopdf (12jul24)

[commits+karl at tug.org]

Revision: 71782
          https://tug.org/svn/texlive?view=revision&revision=71782
Author:   karl
Date:     2024-07-12 23:01:34 +0200 (Fri, 12 Jul 2024)
Log Message:
-----------
epstopdf (12jul24)

Modified Paths:
--------------
    trunk/Build/source/texk/texlive/linked_scripts/epstopdf/epstopdf.pl
    trunk/Master/texmf-dist/doc/man/man1/epstopdf.man1.pdf
    trunk/Master/texmf-dist/doc/man/man1/repstopdf.man1.pdf
    trunk/Master/texmf-dist/scripts/epstopdf/epstopdf.pl

Modified: trunk/Build/source/texk/texlive/linked_scripts/epstopdf/epstopdf.pl
===================================================================
--- trunk/Build/source/texk/texlive/linked_scripts/epstopdf/epstopdf.pl	2024-07-12 16:24:49 UTC (rev 71781)
+++ trunk/Build/source/texk/texlive/linked_scripts/epstopdf/epstopdf.pl	2024-07-12 21:01:34 UTC (rev 71782)
@@ -1,6 +1,6 @@
 #!/usr/bin/env perl
 use warnings;
-# $Id: epstopdf.pl 71584 2024-06-21 22:40:28Z karl $
+# $Id: epstopdf.pl 71777 2024-07-11 21:24:57Z karl $
 # (Copyright lines below.)
 #
 # Redistribution and use in source and binary forms, with or without
@@ -36,7 +36,9 @@
 #
 # emacs-page
 #
-my $ver = "2.35";
+my $ver = "2.36";
+#  2024/07/11 2.36 (Karl Berry)
+#    * regexp syntax for OS/2 test, found by John Collins.
 #  2024/06/21 2.35 (Karl Berry)
 #    * path_sep for OS/2 is also ";".
 #  2024/04/29 2.34 (Karl Berry)
@@ -228,7 +230,7 @@
 ### emacs-page
 ### program identification
 my $program = "epstopdf";
-my $ident = '($Id: epstopdf.pl 71584 2024-06-21 22:40:28Z karl $)' . " $ver";
+my $ident = '($Id: epstopdf.pl 71777 2024-07-11 21:24:57Z karl $)' . " $ver";
 my $copyright = <<END_COPYRIGHT ;
 Copyright 2009-2024 Karl Berry et al.
 Copyright 2002-2009 Gerben Wierda et al.
@@ -260,7 +262,7 @@
 
 # Split PATH and use / as directory separator.
 #
-my $path_sep = ($^O =~ /^(OS2|MSWin)i/) ? ';' : ':'; # not msys
+my $path_sep = ($^O =~ /^(OS2|MSWin)/i) ? ';' : ':'; # not msys
 my @pdirs = split($path_sep, $ENV{"PATH"});
 # Normalize directory separators to /. Always valid on Windows.
 if ($on_windows_or_cygwin) {

Modified: trunk/Master/texmf-dist/doc/man/man1/epstopdf.man1.pdf
===================================================================
(Binary files differ)

Modified: trunk/Master/texmf-dist/doc/man/man1/repstopdf.man1.pdf
===================================================================
(Binary files differ)

Modified: trunk/Master/texmf-dist/scripts/epstopdf/epstopdf.pl
===================================================================
--- trunk/Master/texmf-dist/scripts/epstopdf/epstopdf.pl	2024-07-12 16:24:49 UTC (rev 71781)
+++ trunk/Master/texmf-dist/scripts/epstopdf/epstopdf.pl	2024-07-12 21:01:34 UTC (rev 71782)
@@ -1,6 +1,6 @@
 #!/usr/bin/env perl
 use warnings;
-# $Id: epstopdf.pl 71584 2024-06-21 22:40:28Z karl $
+# $Id: epstopdf.pl 71777 2024-07-11 21:24:57Z karl $
 # (Copyright lines below.)
 #
 # Redistribution and use in source and binary forms, with or without
@@ -36,7 +36,9 @@
 #
 # emacs-page
 #
-my $ver = "2.35";
+my $ver = "2.36";
+#  2024/07/11 2.36 (Karl Berry)
+#    * regexp syntax for OS/2 test, found by John Collins.
 #  2024/06/21 2.35 (Karl Berry)
 #    * path_sep for OS/2 is also ";".
 #  2024/04/29 2.34 (Karl Berry)
@@ -228,7 +230,7 @@
 ### emacs-page
 ### program identification
 my $program = "epstopdf";
-my $ident = '($Id: epstopdf.pl 71584 2024-06-21 22:40:28Z karl $)' . " $ver";
+my $ident = '($Id: epstopdf.pl 71777 2024-07-11 21:24:57Z karl $)' . " $ver";
 my $copyright = <<END_COPYRIGHT ;
 Copyright 2009-2024 Karl Berry et al.
 Copyright 2002-2009 Gerben Wierda et al.
@@ -260,7 +262,7 @@
 
 # Split PATH and use / as directory separator.
 #
-my $path_sep = ($^O =~ /^(OS2|MSWin)i/) ? ';' : ':'; # not msys
+my $path_sep = ($^O =~ /^(OS2|MSWin)/i) ? ';' : ':'; # not msys
 my @pdirs = split($path_sep, $ENV{"PATH"});
 # Normalize directory separators to /. Always valid on Windows.
 if ($on_windows_or_cygwin) {