Commit | Line | Data |
---|---|---|
2f9be6d1 JH |
1 | ?RCS: $Id$ |
2 | ?RCS: | |
3 | ?RCS: Copyright (c) 2000, Jarkko Hietaniemi | |
4 | ?RCS: | |
5 | ?RCS: You may redistribute only under the terms of the Artistic Licence, | |
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 Licence; a copy of which may be found at the root | |
9 | ?RCS: of the source tree for dist 3.0. | |
10 | ?RCS: | |
5a8892ea | 11 | ?MAKE:Devel: Myread rsrc package |
2f9be6d1 | 12 | ?MAKE: -pick wipe $@ %< |
5a8892ea | 13 | ?T:xversion |
2f9be6d1 | 14 | ?X: waiver of rights |
cf8c45ec | 15 | ?LINT:extern usedevel |
f320baf6 JH |
16 | ?LINT:extern versiononly |
17 | ?LINT:extern installusrbinperl | |
18 | ?LINT:change usedevel | |
19 | ?LINT:change versiononly | |
20 | ?LINT:change installusrbinperl | |
d7a2632b | 21 | : See if we are using a devel version and want that |
5a8892ea | 22 | xversion=`awk '/define[ ]+PERL_VERSION/ {print $3}' $rsrc/patchlevel.h` |
cf8c45ec | 23 | case "$usedevel" in |
2f9be6d1 | 24 | $define|true|[yY]*) ;; |
5a8892ea | 25 | *) case "$xversion" in |
2f9be6d1 JH |
26 | *[13579]) |
27 | cat >&4 <<EOH | |
28 | *** WHOA THERE!!! *** | |
29 | ||
30 | This is an UNSTABLE DEVELOPMENT release. | |
5a8892ea JH |
31 | The version of this $package distribution is $xversion, that is, odd, |
32 | (as opposed to even) and that signifies a development release. | |
45793be8 | 33 | If you want a maintenance release, you want an even-numbered version. |
2f9be6d1 JH |
34 | |
35 | Do ***NOT*** install this into production use. | |
36 | Data corruption and crashes are possible. | |
37 | ||
38 | It is most seriously suggested that you do not continue any further | |
39 | unless you want to help in developing and debugging Perl. | |
40 | ||
597c09f5 JH |
41 | If you *still* want to build perl, you can answer 'y' now, |
42 | or pass -Dusedevel to Configure. | |
43 | ||
2f9be6d1 JH |
44 | EOH |
45 | rp='Do you really want to continue?' | |
46 | dflt='n' | |
47 | . ./myread | |
48 | case "$ans" in | |
f320baf6 JH |
49 | [yY]) echo >&4 "Okay, continuing." |
50 | usedevel="$define" ;; | |
2f9be6d1 JH |
51 | *) echo >&4 "Okay, bye." |
52 | exit 1 | |
53 | ;; | |
54 | esac | |
55 | ;; | |
56 | esac | |
57 | ;; | |
58 | esac | |
f320baf6 JH |
59 | case "$usedevel" in |
60 | $define|true|[yY]*) | |
61 | case "$versiononly" in | |
62 | '') versiononly="$define" ;; | |
63 | esac | |
64 | case "$installusrbinperl" in | |
65 | '') installusrbinperl="$undef" ;; | |
66 | esac | |
67 | ;; | |
68 | esac | |
2f9be6d1 | 69 |