summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts/epstopdf
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2010-05-19 23:29:01 +0000
committerKarl Berry <karl@freefriends.org>2010-05-19 23:29:01 +0000
commit3e99e3af32e60033a3e2676ebf08c22c2bf8d5bc (patch)
treef1e2dd8dd94901fba1e5be8dcdc2423fac686402 /Master/texmf-dist/scripts/epstopdf
parent0524e407f3a836ed19615b6873ee89090c062a0b (diff)
epstopdf 2.16
git-svn-id: svn://tug.org/texlive/trunk@18361 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, 14 insertions, 5 deletions
diff --git a/Master/texmf-dist/scripts/epstopdf/epstopdf.pl b/Master/texmf-dist/scripts/epstopdf/epstopdf.pl
index d7662c96a88..9299839c41e 100755
--- a/Master/texmf-dist/scripts/epstopdf/epstopdf.pl
+++ b/Master/texmf-dist/scripts/epstopdf/epstopdf.pl
@@ -2,7 +2,7 @@ eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' && eval 'exec perl -S $0 $
if 0;
use strict;
-# $Id: epstopdf.pl 17496 2010-03-18 17:57:31Z karl $
+# $Id: epstopdf.pl 18319 2010-05-17 16:34:21Z karl $
# (Copyright lines below.)
#
# Redistribution and use in source and binary forms, with or without
@@ -46,6 +46,9 @@ use strict;
#
# emacs-page
# History
+# 2010/05/09 v2.16 (Karl Berry)
+# * make --nogs dump edited PostScript to stdout by default
+# (report from Reinhard Kotucha).
# 2010/03/19 v2.15 (Karl Berry)
# * let --outfile override --filter again.
# * recognize MSWin64 as well as MSWin32, just in case.
@@ -146,7 +149,7 @@ use strict;
### program identification
my $program = "epstopdf";
-my $ident = '($Id: epstopdf.pl 17496 2010-03-18 17:57:31Z karl $) 2.15';
+my $ident = '($Id: epstopdf.pl 18319 2010-05-17 16:34:21Z karl $) 2.16';
my $copyright = <<END_COPYRIGHT ;
Copyright 2009-2010 Karl Berry et al.
Copyright 2002-2009 Gerben Wierda et al.
@@ -334,7 +337,7 @@ if (! $OutputFilename) {
}
} else {
debug "No Ghostscript: will write standard output";
- $OutputFilename = "-"; # no ghostscript, write to standard output
+ $OutputFilename = "-";
}
}
debug "Output filename:", $OutputFilename;
@@ -408,8 +411,14 @@ if ($::opt_gs) {
$outname = $GS;
}
else {
- open($OUT, '>', $OutputFilename) or error "Cannot write \"$OutputFilename\"";
- $outname = $OutputFilename;
+ debug "No Ghostscript: opening $OutputFilename";
+ if ($OutputFilename eq "-") {
+ $OUT = *STDOUT;
+ } else {
+ open($OUT, '>', $OutputFilename)
+ || error ("Cannot write \"$OutputFilename\": $!");
+ $outname = $OutputFilename;
+ }
}
binmode $OUT;