summaryrefslogtreecommitdiff
path: root/Build/source/texk/texlive/linked_scripts/epstopdf
diff options
context:
space:
mode:
authorPeter Breitenlohner <peb@mppmu.mpg.de>2011-03-01 09:20:55 +0000
committerPeter Breitenlohner <peb@mppmu.mpg.de>2011-03-01 09:20:55 +0000
commit745b336f730a44982185b9218413f29352d55246 (patch)
treebece2f4f19ce54139b70dd29221b55d0d4e535de /Build/source/texk/texlive/linked_scripts/epstopdf
parent82e45746ba7c21a9b375025bcac04c5ab066cce1 (diff)
update linked scripts Master -> Build
git-svn-id: svn://tug.org/texlive/trunk@21563 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/texlive/linked_scripts/epstopdf')
-rwxr-xr-xBuild/source/texk/texlive/linked_scripts/epstopdf/epstopdf.pl19
1 files changed, 14 insertions, 5 deletions
diff --git a/Build/source/texk/texlive/linked_scripts/epstopdf/epstopdf.pl b/Build/source/texk/texlive/linked_scripts/epstopdf/epstopdf.pl
index d7662c96a88..9299839c41e 100755
--- a/Build/source/texk/texlive/linked_scripts/epstopdf/epstopdf.pl
+++ b/Build/source/texk/texlive/linked_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;