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