| 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 License, |
| 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 License; 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 usedevel: Myread rsrc package |
| 12 | ?MAKE: -pick wipe $@ %< |
| 13 | ?T:xversion |
| 14 | ?X: waiver of rights |
| 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:. |
| 26 | ?LINT:extern versiononly |
| 27 | ?LINT:extern installusrbinperl |
| 28 | ?LINT:change versiononly |
| 29 | ?LINT:change installusrbinperl |
| 30 | : See if we are using a devel version and want that |
| 31 | xversion=`awk '/define[ ]+PERL_VERSION/ {print $3}' $rsrc/patchlevel.h` |
| 32 | case "$usedevel" in |
| 33 | $define|true|[yY]*) |
| 34 | usedevel="$define" ;; |
| 35 | *) case "$xversion" in |
| 36 | *[13579]) |
| 37 | cat >&4 <<EOH |
| 38 | *** WHOA THERE!!! *** |
| 39 | |
| 40 | This is an UNSTABLE DEVELOPMENT release. |
| 41 | The version of this $package distribution is $xversion, that is, odd, |
| 42 | (as opposed to even) and that signifies a development release. |
| 43 | If you want a maintenance release, you want an even-numbered version. |
| 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 | |
| 51 | If you *still* want to build perl, you can answer 'y' now, |
| 52 | or pass -Dusedevel to Configure. |
| 53 | |
| 54 | EOH |
| 55 | rp='Do you really want to continue?' |
| 56 | dflt='n' |
| 57 | . ./myread |
| 58 | case "$ans" in |
| 59 | [yY]) echo >&4 "Okay, continuing." |
| 60 | usedevel="$define" ;; |
| 61 | *) echo >&4 "Okay, bye." |
| 62 | exit 1 |
| 63 | ;; |
| 64 | esac |
| 65 | ;; |
| 66 | esac |
| 67 | usedevel="$undef" |
| 68 | ;; |
| 69 | esac |
| 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 |
| 80 | |