blob: 0f9906303b49e558d8a0241e781df229bead03c7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
|
?RCS: $Id: perlpath.U 1 2006-08-24 12:32:52Z rmanfredi $
?RCS:
?RCS: Copyright (c) 1991-1997, 2004-2006, Raphael Manfredi
?RCS:
?RCS: You may redistribute only under the terms of the Artistic Licence,
?RCS: as specified in the README file that comes with the distribution.
?RCS: You may reuse parts of this distribution only within the terms of
?RCS: that same Artistic Licence; a copy of which may be found at the root
?RCS: of the source tree for dist 4.0.
?RCS:
?RCS: $Log: perlpath.U,v $
?RCS: Revision 3.0.1.2 1995/09/25 09:17:04 ram
?RCS: patch59: unit is now forced to the top of Configure, if possible
?RCS:
?RCS: Revision 3.0.1.1 1995/01/11 15:33:53 ram
?RCS: patch45: can now use Loc variables since path stripping is deferred
?RCS:
?RCS: Revision 3.0 1993/08/18 12:09:32 ram
?RCS: Baseline for dist 3.0 netwide release.
?RCS:
?X:
?X: The purpose of this unit is to locate perl good enough to construct a #!
?X:
?MAKE:perlpath: Getfile Oldconfig Loc perl
?MAKE: -pick add $@ %<
?Y:TOP
?S:perlpath:
?S: This variable contains the eventual value of the PERLPATH symbol,
?S: which contains the absolute location of the perl interpeter.
?S:.
?C:PERLPATH:
?C: This symbol contains the absolute location of the perl interpeter.
?C:.
?H:#define PERLPATH "$perlpath" /**/
?H:.
: determine perl absolute location
case "$perlpath" in
'')
if test -f /usr/bin/perl; then
dflt=/usr/bin/perl
else
case "$perl" in
*/*) dflt="$perl";;
*) dflt=/usr/bin/perl;;
esac
fi
;;
*) dflt="$perlpath"
;;
esac
echo " "
fn=f~/
rp="Where is perl located on your system?"
. ./getfile
perlpath="$ans"
|
