summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts/epstopdf
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2015-01-25 00:05:46 +0000
committerKarl Berry <karl@freefriends.org>2015-01-25 00:05:46 +0000
commit33c79a94c250a3143662b3d95437bf838e424f99 (patch)
treed8459df6b9f09e854178fe197200d375e7424aaf /Master/texmf-dist/scripts/epstopdf
parent7e0fbbc50510cbdec843cdb1582134505db85f14 (diff)
epstopdf (24jan15)
git-svn-id: svn://tug.org/texlive/trunk@36139 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts/epstopdf')
-rwxr-xr-xMaster/texmf-dist/scripts/epstopdf/epstopdf.pl19
1 files changed, 12 insertions, 7 deletions
diff --git a/Master/texmf-dist/scripts/epstopdf/epstopdf.pl b/Master/texmf-dist/scripts/epstopdf/epstopdf.pl
index b83e4bef60b..f263df00933 100755
--- a/Master/texmf-dist/scripts/epstopdf/epstopdf.pl
+++ b/Master/texmf-dist/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) {