This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Make the user to give up his firstborn, err, to knowingly
[metaconfig.git] / U / perl / Devel.U
CommitLineData
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:
11?MAKE:Devel: Myread rsrc
12?MAKE: -pick wipe $@ %<
13?T:xpatchlevel
14?X: waiver of rights
15?LINT:extern useunstabledeveloperreleases
16xpatchlevel=`awk '/define[ ]+PERL_VERSION/ {print $3}' $rsrc/patchlevel.h`
17case "$useunstabledeveloperreleases" in
18$define|true|[yY]*) ;;
19*) case "$xpatchlevel" in
20 *[13579])
21 cat >&4 <<EOH
22*** WHOA THERE!!! ***
23
24 This is an UNSTABLE DEVELOPMENT release.
25 (The patchlevel, $xpatchlevel, is odd--as opposed to even,
26 and that signifies a development release. If you want a
27 maintenance release, you want an even-numbered release.)
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
35EOH
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 ;;
48esac
49