Commit | Line | Data |
2304df62 |
1 | ?X: These units are based on the ones supplied with dist-3.0 |
2 | ?X: patchlevel 22. They have been changed or enhanced to work with |
3 | ?X: perl5alpha. I would appreciate hearing about any changes, |
4 | ?X: corrections, or enhancements. |
5 | ?X: Andy Dougherty doughera@lafcol.lafayette.edu |
6 | ?X: Dept. of Physics |
7 | ?X: Lafayette College |
8 | ?X: Easton, PA 18042-1782 |
9 | ?X: Sat Apr 2 15:45:17 EST 1994 |
10 | ?RCS: $Id: Extensions.U,v$ |
11 | ?RCS: |
12 | ?RCS: You may redistribute only under the terms of the Artistic Licence, |
13 | ?RCS: as specified in the README file that comes with the distribution. |
14 | ?RCS: You may reuse parts of this distribution only within the terms of |
15 | ?RCS: that same Artistic Licence; a copy of which may be found at the root |
16 | ?RCS: of the source tree for dist 3.0. |
17 | ?RCS: |
18 | ?RCS: $Log: Extensions.U,v $ |
19 | ?RCS: |
20 | ?MAKE:extensions : find package |
21 | ?MAKE: -pick add $@ %< |
22 | ?S:extensions: |
23 | ?S: This variable holds a list of extension files we want to |
24 | ?S: include in perl. |
25 | ?S:. |
26 | ?INIT:: List of extensions we want: |
27 | ?INIT:extensions='' |
28 | ?X: |
29 | echo " " |
30 | case "$extensions" in |
31 | ' '|'') echo "Looking for extensions..." |
32 | case "$find" in |
33 | *find*) |
34 | cd .. |
35 | dflt="`$find ext -type f -name \*.xs -print`" |
36 | cd UU |
37 | ;; |
38 | *) dflt='ext/dbm/NDBM_File.xs ext/dbm/ODBM_File.xs ext/dbm/GDBM_File.xs ext/dbm/SDBM_File.xs ext/posix/POSIX.xs' |
39 | ;; |
40 | esac |
41 | ;; |
42 | none) dflt='' ;; |
43 | *) dflt="$extensions" ;; |
44 | esac |
45 | rp="What extensions do you wish to include?" |
46 | . ./myread |
47 | extensions="$ans" |
48 | |