[tex-live] win32 and Gs

[Akira Kakuto]

> I'm personaly using GPL Ghostscript SVN PRE-RELEASE 8.56
> and it generated a BoudingBox 100 100 300 301:

I've changed the perl script in CTAN to match ps2eps.exe for Win
as follows:

--- ps2eps	Fri May 14 10:59:50 2004
+++ ps2eps.pl	Sat Dec 23 09:05:08 2006
@@ -1,5 +1,6 @@
-eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' && eval 'exec perl -S $0 $argv:q' # -*-perl-*-
-        if 0;
+#!/usr/bin/perl
+#eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' && eval 'exec perl -S $0 $argv:q' # -*-perl-*-
+#        if 0;
 # The expression in the previous line replaces the unix specific line 
 # {#!/usr/bin/perl}.   
 # ps2eps - convert PostScript to EPS (Encapsulated PostScript) files
@@ -47,13 +48,15 @@
 if ($^O =~ /MSWin32/i or $^O =~ /cygwin/i) 
 {
   $ghostscriptname = "gswin32c";
+  $NULLDEV = "nul";
 } 
 else 
 {
   $ghostscriptname = "gs";
+  $NULLDEV = "/dev/null";
 }
 
-$bboxver=`bbox >/dev/null 2>&1 -V`;
+$bboxver=`bbox >$NULLDEV 2>&1 -V`;
 $bboxname= ($?== -1) ? "" : "bbox";
 $version= '$Id: ps2eps,v 1.54 2004/04/23 07:56:54 bless Exp $'; #'
 $insertPScode= 1;     # Insert surrounding Postscript code


Thanks,
Akira