diff options
author | Karl Berry <karl@freefriends.org> | 2006-12-25 01:05:36 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-12-25 01:05:36 +0000 |
commit | 37c47624807322345080f2344ade14a58f721ee6 (patch) | |
tree | fb48bc1e9b01678c48838fe9cd77b3208b82afb8 /Master/texmf/scripts/ps2eps | |
parent | 70bdd05d833a7a0fce0b77bc00a3c34b797034f4 (diff) |
better test for windows
git-svn-id: svn://tug.org/texlive/trunk@2891 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf/scripts/ps2eps')
-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 |