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 xversion=`awk '/define[         ]+PERL_VERSION/ {print $3}' $rsrc/patchlevel.h`
  22 case "$usedevel" in
  23 $define|true|[yY]*) ;;
  24 *) case "$xversion" in
  25    *[13579])
  26         cat >&4 <<EOH
  27 *** WHOA THERE!!! ***
  28
  29     This is an UNSTABLE DEVELOPMENT release.
  30     The version of this $package distribution is $xversion, that is, odd,
  31     (as opposed to even) and that signifies a development release.
  32     If you want a maintenance release, you want an even-numbered version.
  33
  34     Do ***NOT*** install this into production use.
  35     Data corruption and crashes are possible.
  36
  37     It is most seriously suggested that you do not continue any further
  38     unless you want to help in developing and debugging Perl.
  39
  40     If you *still* want to build perl, you can answer 'y' now,
  41     or pass -Dusedevel to Configure.
  42
  43 EOH
  44         rp='Do you really want to continue?'
  45         dflt='n'
  46         . ./myread
  47         case "$ans" in
  48         [yY]) echo >&4 "Okay, continuing."
  49               usedevel="$define" ;;
  50         *) echo >&4 "Okay, bye."
  51            exit 1
  52            ;;
  53         esac
  54         ;;
  55     esac
  56     ;;
  57 esac
  58 case "$usedevel" in
  59 $define|true|[yY]*)
  60         case "$versiononly" in
  61         '') versiononly="$define" ;;
  62         esac
  63         case "$installusrbinperl" in
  64         '') installusrbinperl="$undef" ;;
  65         esac
  66         ;;
  67 esac
  68