diff options
Diffstat (limited to 'Master/texmf/scripts/ps2eps/ps2eps.pl')
| -rw-r--r-- | Master/texmf/scripts/ps2eps/ps2eps.pl | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/Master/texmf/scripts/ps2eps/ps2eps.pl b/Master/texmf/scripts/ps2eps/ps2eps.pl index 041bfdbc75f..fababbe8d22 100644 --- a/Master/texmf/scripts/ps2eps/ps2eps.pl +++ b/Master/texmf/scripts/ps2eps/ps2eps.pl @@ -1,10 +1,11 @@ -# eval '(exit $?0)' && eval 'exec perl -S $0 ${1+"$@"}' && eval 'exec perl -S $0 $argv:q' # -*-perl-*- -# if 0; +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 # ------------------------------------------------------------------- # $Id: ps2eps,v 1.54 2004/04/23 07:56:54 bless Exp $ +# (with minor Windows-related modifications for TL) # ------------------------------------------------------- # (C)opyright 1999-2004 Roland Bless # @@ -44,18 +45,20 @@ use Getopt::Long; Getopt::Long::Configure("no_ignore_case"); $prgname= "ps2eps"; -if ($^O =~ /MSWin32/i or $^O =~ /cygwin/i) +if (! -d "/usr/bin/") { $ghostscriptname = "gswin32c"; + $NULLDEV = "/dev/null"; } else { $ghostscriptname = "gs"; + $NULLDEV = "nul"; } -$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 $'; #' +$version= '$Id: ps2eps,v 1.54+tl 2004/04/23 07:56:54 bless Exp $'; #' $insertPScode= 1; # Insert surrounding Postscript code $infhandle = STDIN; # Standard input is the default input file $outfhandle = STDOUT; # Standard output is default output if STDIN is input |