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 |
5a8892ea | 16 | xversion=`awk '/define[ ]+PERL_VERSION/ {print $3}' $rsrc/patchlevel.h` |
cf8c45ec | 17 | case "$usedevel" in |
2f9be6d1 | 18 | $define|true|[yY]*) ;; |
5a8892ea | 19 | *) case "$xversion" in |
2f9be6d1 JH |
20 | *[13579]) |
21 | cat >&4 <<EOH | |
22 | *** WHOA THERE!!! *** | |
23 | ||
24 | This is an UNSTABLE DEVELOPMENT release. | |
5a8892ea JH |
25 | The version of this $package distribution is $xversion, that is, odd, |
26 | (as opposed to even) and that signifies a development release. | |
45793be8 | 27 | If you want a maintenance release, you want an even-numbered version. |
2f9be6d1 JH |
28 | |
29 | Do ***NOT*** install this into production use. | |
30 | Data corruption and crashes are possible. | |
31 | ||
32 | It is most seriously suggested that you do not continue any further | |
33 | unless you want to help in developing and debugging Perl. | |
34 | ||
35 | EOH | |
36 | rp='Do you really want to continue?' | |
37 | dflt='n' | |
38 | . ./myread | |
39 | case "$ans" in | |
40 | [yY]) echo >&4 "Okay, continuing." ;; | |
41 | *) echo >&4 "Okay, bye." | |
42 | exit 1 | |
43 | ;; | |
44 | esac | |
45 | ;; | |
46 | esac | |
47 | ;; | |
48 | esac | |
49 |