From xemacs-m  Fri Apr 25 11:01:05 1997
Received: from altair.xemacs.org (steve@xemacs.miranova.com [206.190.83.19])
	by xemacs.org (8.8.5/8.8.5) with ESMTP id LAA07540
	for <xemacs-beta@xemacs.org>; Fri, 25 Apr 1997 11:01:04 -0500 (CDT)
Received: (from steve@localhost)
	by altair.xemacs.org (8.8.5/8.8.5) id JAA11493;
	Fri, 25 Apr 1997 09:14:18 -0700
Mail-Copies-To: never
To: xemacs-beta@xemacs.org
Subject: Re: pstogif
References: <y9lbu84yu26.fsf@modas.informatik.uni-tuebingen.de> <199703282129.NAA23960@xemacs.eng.sun.com> <y9lrafzrtwq.fsf@modas.informatik.uni-tuebingen.de>
X-Url: http://www.miranova.com/%7Esteve/
X-Face: #!T9!#9s-3o8)*uHlX{Ug[xW7E7Wr!*L46-OxqMu\xz23v|R9q}lH?cRS{rCNe^'[`^sr5"
 f8*@r4ipO6Jl!:Ccq<xoV[Qz2u8<8-+Vwf2gzJ44lf_/y9OaQ`@#Q65{U4/TC)i2`~/M&QI$X>p:9I
 OSS'2{-)-4wBnVeg0S\O4Al@)uC[pD|+
X-Attribution: sb
From: Steven L Baur <steve@miranova.com>
In-Reply-To: sperber@informatik.uni-tuebingen.de's message of 25 Apr 1997 17:42:13 +0200
Mime-Version: 1.0 (generated by tm-edit 7.106)
Content-Type: text/plain; charset=US-ASCII
Date: 25 Apr 1997 09:14:17 -0700
Message-ID: <m2rafzyt9i.fsf@altair.xemacs.org>
Lines: 38
X-Mailer: Gnus v5.4.46/XEmacs 20.2(beta3)

Michael Sperber <sperber@informatik.uni-tuebingen.de> writes:

>>>>>> "Martin" == Martin Buchholz <mrb@Eng.Sun.COM> writes:

Martin> Here's the magic I use in all my perl scripts:

Martin> : # -*-Perl-*-
Martin> eval 'exec perl -w -S $0 ${1+"$@"}' # Portability kludge
Martin> if 0;

> Is there any reason why the pstogif 20.2-b2 still doesn't use this?

Nobody submitted a patch for it.

Fri Apr 25 09:12:04 1997  Steven L Baur  <steve@altair.xemacs.org>

	* pstogif: Use Martin Buchholz magic to automagically find perl
	interpreter.

Index: lib-src/pstogif
===================================================================
RCS file: /usr/local/xemacs/xemacs-20.0/lib-src/pstogif,v
retrieving revision 1.1
diff -u -r1.1 pstogif
--- pstogif	1996/12/28 21:09:14	1.1
+++ pstogif	1997/04/25 16:12:01
@@ -1,4 +1,6 @@
-#!/usr/local/bin/perl
+: # -*-Perl-*-
+eval 'exec perl -w -S $0 ${1+"$@"}' # Portability kludge
+    if 0;
 # 
 # pstogif.pl v1.0, July 1994, by Nikos Drakos <nikos@cbl.leeds.ac.uk>
 # Computer Based Learning Unit, University of Leeds.

-- 
steve@miranova.com baur
Unsolicited commercial e-mail will be billed at $250/message.

