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