diff options
author | Peter Breitenlohner <peb@mppmu.mpg.de> | 2011-03-01 09:20:55 +0000 |
---|---|---|
committer | Peter Breitenlohner <peb@mppmu.mpg.de> | 2011-03-01 09:20:55 +0000 |
commit | 745b336f730a44982185b9218413f29352d55246 (patch) | |
tree | bece2f4f19ce54139b70dd29221b55d0d4e535de /Build/source/texk/texlive/linked_scripts/epstopdf | |
parent | 82e45746ba7c21a9b375025bcac04c5ab066cce1 (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-x | Build/source/texk/texlive/linked_scripts/epstopdf/epstopdf.pl | 19 |
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; |