summaryrefslogtreecommitdiff
path: root/Master/texmf/scripts/ps2eps/ps2eps.pl
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf/scripts/ps2eps/ps2eps.pl')
-rw-r--r--Master/texmf/scripts/ps2eps/ps2eps.pl13
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