summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorStaszek Wawrykiewicz <staw@gust.org.pl>2007-01-24 20:16:44 +0000
committerStaszek Wawrykiewicz <staw@gust.org.pl>2007-01-24 20:16:44 +0000
commit47f5b9d1ff3de610937fd65e17d53df24c21432c (patch)
tree3b1dd1f61e4cea9bd2e81c0cd82cdedb67f64966
parent78489fa70c4d632ba12fa54be5bc3816ea434615 (diff)
epstopdf.pl patched for win32
git-svn-id: svn://tug.org/texlive/trunk@3759 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r--Master/texmf/scripts/tetex/epstopdf.pl19
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;
}