diff options
| author | Max Chernoff <mseven@telus.net> | 2024-06-24 07:30:49 +0000 |
|---|---|---|
| committer | Max Chernoff <mseven@telus.net> | 2024-06-24 07:30:49 +0000 |
| commit | 70b7ec7ca0325206399a92c74a6a817d4cb9ff12 (patch) | |
| tree | d50a65fab8121ed4fb6e151d929f021f28a5747a /Build/source | |
| parent | f136d5c4c486cf021980dd3187c9d2ec079186cc (diff) | |
epstopdf (22jun24)
git-svn-id: svn://tug.org/texlive/trunk@71612 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source')
| -rwxr-xr-x | Build/source/texk/texlive/linked_scripts/epstopdf/epstopdf.pl | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/Build/source/texk/texlive/linked_scripts/epstopdf/epstopdf.pl b/Build/source/texk/texlive/linked_scripts/epstopdf/epstopdf.pl index df768ef815b..1a599650177 100755 --- a/Build/source/texk/texlive/linked_scripts/epstopdf/epstopdf.pl +++ b/Build/source/texk/texlive/linked_scripts/epstopdf/epstopdf.pl @@ -1,6 +1,6 @@ #!/usr/bin/env perl use warnings; -# $Id: epstopdf.pl 71121 2024-04-29 17:27:25Z karl $ +# $Id: epstopdf.pl 71584 2024-06-21 22:40:28Z karl $ # (Copyright lines below.) # # Redistribution and use in source and binary forms, with or without @@ -36,7 +36,9 @@ use warnings; # # emacs-page # -my $ver = "2.34"; +my $ver = "2.35"; +# 2024/06/21 2.35 (Karl Berry) +# * path_sep for OS/2 is also ";". # 2024/04/29 2.34 (Karl Berry) # * if --debug is first argument, give more output. # * do not check for kpsewhich in PATH unless restricted. @@ -226,7 +228,7 @@ my $ver = "2.34"; ### emacs-page ### program identification my $program = "epstopdf"; -my $ident = '($Id: epstopdf.pl 71121 2024-04-29 17:27:25Z karl $)' . " $ver"; +my $ident = '($Id: epstopdf.pl 71584 2024-06-21 22:40:28Z karl $)' . " $ver"; my $copyright = <<END_COPYRIGHT ; Copyright 2009-2024 Karl Berry et al. Copyright 2002-2009 Gerben Wierda et al. @@ -258,7 +260,7 @@ debug " on_cygwin=$on_cygwin, on_msys=$on_msys"; # Split PATH and use / as directory separator. # -my $path_sep = ( ($^O =~ /^MSWin/) ? ';' : ':' ); # 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) { |