| 1 | ?RCS: $Id$ |
| 2 | ?RCS: |
| 3 | ?RCS: Copyright (c) 1991-1997, 2004-2006, Raphael Manfredi |
| 4 | ?RCS: |
| 5 | ?RCS: You may redistribute only under the terms of the Artistic License, |
| 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 |
| 8 | ?RCS: that same Artistic License; a copy of which may be found at the root |
| 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, |
| 29 | ?S: which contains the absolute location of the perl interpreter. |
| 30 | ?S:. |
| 31 | ?C:PERLPATH: |
| 32 | ?C: This symbol contains the absolute location of the perl interpreter. |
| 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 | |