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 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