Commit | Line | Data |
---|---|---|
959f3c4c JH |
1 | ?RCS: $Id: perlpath.U,v 3.0.1.2 1995/09/25 09:17:04 ram Exp $ |
2 | ?RCS: | |
3 | ?RCS: Copyright (c) 1991-1993, Raphael Manfredi | |
4 | ?RCS: | |
5 | ?RCS: This file is included with or a derivative work of a file included | |
6 | ?RCS: with the metaconfig program of Raphael Manfredi's "dist" distribution. | |
7 | ?RCS: In accordance with clause 7 of dist's modified Artistic License: | |
8 | ?RCS: | |
9 | ?RCS: You may distribute under the terms of either the GNU General Public | |
10 | ?RCS: License or the Artistic License, as specified in the README file. | |
11 | ?RCS: | |
12 | ?RCS: $Log: perlpath.U,v $ | |
13 | ?RCS: | |
14 | ?RCS: Special perl5 unit -- we haven't installed perl yet. | |
15 | ?RCS: | |
16 | ?RCS: Revision 3.0.1.2 1995/09/25 09:17:04 ram | |
17 | ?RCS: patch59: unit is now forced to the top of Configure, if possible | |
18 | ?RCS: | |
19 | ?RCS: Revision 3.0.1.1 1995/01/11 15:33:53 ram | |
20 | ?RCS: patch45: can now use Loc variables since path stripping is deferred | |
21 | ?RCS: | |
22 | ?RCS: Revision 3.0 1993/08/18 12:09:32 ram | |
23 | ?RCS: Baseline for dist 3.0 netwide release. | |
24 | ?RCS: | |
25 | ?X: | |
26 | ?X: The purpose of this unit is to locate perl good enough to construct a #! | |
27 | ?X: | |
28 | ?MAKE:perlpath: cat Getfile Loc Myread Oldconfig binexp startperl | |
29 | ?MAKE: -pick add $@ %< | |
30 | ?Y:TOP | |
31 | ?S:perlpath: | |
32 | ?S: This variable contains the eventual value of the PERLPATH symbol, | |
33 | ?S: which contains the name of the perl interpreter to be used in | |
34 | ?S: shell scripts and in the "eval 'exec'" idiom. | |
35 | ?S:. | |
36 | ?C:PERLPATH: | |
37 | ?C: This symbol contains the name of the perl interpreter to be | |
38 | ?C: used in shell scripts and in the "eval 'exec'" idiom. | |
39 | ?C:. | |
40 | ?H:#define PERLPATH "$perlpath" /**/ | |
41 | ?H:. | |
42 | : figure best path for perl in scripts | |
43 | case "$perlpath" in | |
44 | '') | |
45 | perlpath="$binexp/perl" | |
46 | case "$startperl" in | |
47 | *!*) ;; | |
48 | *) | |
49 | $cat <<EOH | |
50 | ||
51 | I will use the "eval 'exec'" idiom to start Perl on your system. | |
52 | I can use the full path of your Perl binary for this purpose, but | |
53 | doing so may cause problems if you want to share those scripts and | |
54 | Perl is not always in a standard place ($binexp/perl). | |
55 | ||
56 | EOH | |
57 | dflt="$binexp/perl" | |
58 | rp="What path shall I use in \"eval 'exec'\"?" | |
59 | . ./myread | |
60 | perlpath="$ans" | |
61 | ;; | |
62 | esac | |
63 | ;; | |
64 | esac | |
65 | case "$startperl" in | |
66 | *!*) ;; | |
67 | *) echo "I'll use $perlpath in \"eval 'exec'\"" ;; | |
68 | esac | |
69 |