diff options
author | Karl Berry <karl@freefriends.org> | 2015-01-25 00:05:46 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2015-01-25 00:05:46 +0000 |
commit | 33c79a94c250a3143662b3d95437bf838e424f99 (patch) | |
tree | d8459df6b9f09e854178fe197200d375e7424aaf /Build/source/texk | |
parent | 7e0fbbc50510cbdec843cdb1582134505db85f14 (diff) |
epstopdf (24jan15)
git-svn-id: svn://tug.org/texlive/trunk@36139 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk')
-rwxr-xr-x | Build/source/texk/texlive/linked_scripts/epstopdf/epstopdf.pl | 19 |
1 files changed, 12 insertions, 7 deletions
diff --git a/Build/source/texk/texlive/linked_scripts/epstopdf/epstopdf.pl b/Build/source/texk/texlive/linked_scripts/epstopdf/epstopdf.pl index b83e4bef60b..f263df00933 100755 --- a/Build/source/texk/texlive/linked_scripts/epstopdf/epstopdf.pl +++ b/Build/source/texk/texlive/linked_scripts/epstopdf/epstopdf.pl @@ -1,5 +1,5 @@ #!/usr/bin/env perl -# $Id: epstopdf.pl 34293 2014-06-18 18:16:38Z karl $ +# $Id: epstopdf.pl 36129 2015-01-24 00:30:11Z karl $ # (Copyright lines below.) # # Redistribution and use in source and binary forms, with or without @@ -30,13 +30,16 @@ # Level 2 PS interpreter should work, although in practice using # Ghostscript is near-universal. Many more details below. # -# One thing not allowed for: the case of +# One thing not supported is the case of # "%%BoundingBox: (atend)" when input is not seekable (e.g., from a pipe), # # emacs-page -my $ver = "2.22"; +my $ver = "2.23"; # History +# 2015/01/22 v2.23 (Karl Berry) +# * use # instead of = to placate msys; report from KUROKI Yusuke, +# tex-k mail 20 Jan 2015 12:40:16. # 2014/06/18 v2.22 (Karl Berry) # * escape % in $outputfilename; report from William Fischer, # tex-k mail 16 Jun 2014 18:45:12. @@ -168,7 +171,7 @@ my $ver = "2.22"; ### emacs-page ### program identification my $program = "epstopdf"; -my $ident = '($Id: epstopdf.pl 34293 2014-06-18 18:16:38Z karl $)' . " $ver"; +my $ident = '($Id: epstopdf.pl 36129 2015-01-24 00:30:11Z karl $)' . " $ver"; my $copyright = <<END_COPYRIGHT ; Copyright 2009-2014 Karl Berry et al. Copyright 2002-2009 Gerben Wierda et al. @@ -179,7 +182,7 @@ There is NO WARRANTY, to the extent permitted by law. END_COPYRIGHT my $title = "$program $ident\n"; -my $on_windows = $^O =~ /^MSWin/; +my $on_windows = $^O =~ /^(MSWin|msys$)/; my $on_windows_or_cygwin = $on_windows || $^O eq "cygwin"; ### ghostscript command name @@ -570,7 +573,8 @@ if ($::opt_pdfsettings warnerr "Invalid value for --pdfsettings: $::opt_pdfsettings"; $::opt_pdfsettings = ''; } -push @GS, "-dPDFSETTINGS=/$::opt_pdfsettings" if $::opt_pdfsettings; +# use # instead of = to avoid mingw path munging. +push (@GS, "-dPDFSETTINGS#/$::opt_pdfsettings") if $::opt_pdfsettings; push @GS, qw[ -dMaxSubsetPct=100 @@ -596,7 +600,8 @@ if ($::opt_autorotate and . "(use 'All', 'None' or 'PageByPage'"; $::opt_autorotate = ''; } -push @GS, "-dAutoRotatePages=/$::opt_autorotate" if $::opt_autorotate; +# use # instead of = to avoid mingw path munging. +push (@GS, "-dAutoRotatePages#/$::opt_autorotate") if $::opt_autorotate; $rotmsg = $::opt_autorotate ? $::opt_autorotate : "[use gs default]"; foreach my $gsopt (@::opt_gsopt) { |