This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
07427031e149420d151763183de3248af47c0236
[metaconfig.git] / U / perl / Devel.U
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 package
12 ?MAKE:  -pick wipe $@ %<
13 ?T:xversion
14 ?X: waiver of rights
15 ?LINT:extern usedevel
16 ?LINT:extern versiononly
17 ?LINT:extern installusrbinperl
18 ?LINT:change usedevel
19 ?LINT:change versiononly
20 ?LINT:change installusrbinperl
21 : See if we are using a devel version and want that
22 xversion=`awk '/define[         ]+PERL_VERSION/ {print $3}' $rsrc/patchlevel.h`
23 case "$usedevel" in
24 $define|true|[yY]*) ;;
25 *) case "$xversion" in
26    *[13579])
27         cat >&4 <<EOH
28 *** WHOA THERE!!! ***
29
30     This is an UNSTABLE DEVELOPMENT release.
31     The version of this $package distribution is $xversion, that is, odd,
32     (as opposed to even) and that signifies a development release.
33     If you want a maintenance release, you want an even-numbered version.
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
41     If you *still* want to build perl, you can answer 'y' now,
42     or pass -Dusedevel to Configure.
43
44 EOH
45         rp='Do you really want to continue?'
46         dflt='n'
47         . ./myread
48         case "$ans" in
49         [yY]) echo >&4 "Okay, continuing."
50               usedevel="$define" ;;
51         *) echo >&4 "Okay, bye."
52            exit 1
53            ;;
54         esac
55         ;;
56     esac
57     ;;
58 esac
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
69