diff options
Diffstat (limited to 'Master/texmf/scripts/tetex/epstopdf.pl')
-rw-r--r-- | Master/texmf/scripts/tetex/epstopdf.pl | 19 |
1 files changed, 10 insertions, 9 deletions
diff --git a/Master/texmf/scripts/tetex/epstopdf.pl b/Master/texmf/scripts/tetex/epstopdf.pl index 0fb015d4420..33dbc01f669 100644 --- a/Master/texmf/scripts/tetex/epstopdf.pl +++ b/Master/texmf/scripts/tetex/epstopdf.pl @@ -62,13 +62,14 @@ use strict; # * This has become the official version for now # 2005/10/06 v2.9.5gw (Gerben Wierda) # * Fixed a horrendous bug in the (atend) handling code -# +# 2007/01/24 v2.9.6sw (Staszek Wawrykiewicz) +# * patched to work also on Windows ### program identification my $program = "epstopdf"; -my $filedate="2006/01/29"; -my $fileversion="2.9.5gw"; -my $copyright = "Copyright 1998-2006 by Sebastian Rahtz et al."; +my $filedate="2007/01/24"; +my $fileversion="2.9.6sw"; +my $copyright = "Copyright 1998-2007 by Sebastian Rahtz et al."; my $title = "\U$program\E $fileversion, $filedate - $copyright\n"; ### ghostscript command name @@ -149,7 +150,7 @@ else { @ARGV > 0 or die errorUsage "Input filename missing"; @ARGV < 2 or die errorUsage "Unknown option or too many input files"; $InputFilename = $ARGV[0]; - -f $InputFilename or error "'$InputFilename' does not exist"; + -f $InputFilename or error "\"$InputFilename\" does not exist"; debug "Input filename:", $InputFilename; } @@ -194,18 +195,18 @@ if ($::opt_gs) { ### open input file open(IN,"<$InputFilename") or error "Cannot open", - ($::opt_filter) ? "standard input" : "'$InputFilename'"; + ($::opt_filter) ? "standard input" : "\"$InputFilename\""; binmode IN; ### open output file if ($::opt_gs) { my $pipe = "$GS -q -sDEVICE=pdfwrite $GSOPTS -dAutoRotatePages=/None" . - " -sOutputFile='$OutputFilename' - -c quit"; + " -sOutputFile=\"$OutputFilename\" - -c quit"; debug "Ghostscript pipe:", $pipe; open(OUT,"|$pipe") or error "Cannot open Ghostscript for piped input"; } else { - open(OUT,">$OutputFilename") or error "Cannot write '$OutputFilename"; + open(OUT,">$OutputFilename") or error "Cannot write \"$OutputFilename\""; } # reading a cr-eol file on a lf-eol system makes it impossible to parse @@ -399,7 +400,7 @@ if ($header) { } # go back - myseek( $pos) or error "Cannot go back to line '$BBName (atend)'"; + myseek( $pos) or error "Cannot go back to line \"$BBName (atend)\""; last; } |