epstopdf.pl patched for win32

git-svn-id: svn://tug.org/texlive/trunk@3759 c570f23f-e606-0410-a88d-b1316a301751

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;
     }