U/perl/bincompat5005.U

   1 ?RCS: Copyright (c) 1996, Chip Salzenberg
   2 ?RCS:
   3 ?RCS: You may distribute under the terms of either the GNU General Public
   4 ?RCS: License or the Artistic License, as specified in the README file.
   5 ?RCS:
   6 ?MAKE:bincompat5005 d_bincompat5005: Oldconfig Myread Setvar cat \
   7         usethreads usemultiplicity
   8 ?MAKE:  -pick add $@ %<
   9 ?Y:TOP
  10 ?S:bincompat5005:
  11 ?S:     This variable contains y if this version of Perl should be
  12 ?S:     binary-compatible with Perl 5.005.
  13 ?S:.
  14 ?S:d_bincompat5005:
  15 ?S:     This variable conditionally defines BINCOMPAT5005 so that embed.h
  16 ?S:     can take special action if this version of Perl should be
  17 ?S:     binary-compatible with Perl 5.005.  This is impossible for builds
  18 ?S:     that use features like threads and multiplicity it is always $undef
  19 ?S:     for those versions.
  20 ?S:.
  21 ?C:PERL_BINCOMPAT_5005:
  22 ?C:     This symbol, if defined, indicates that this version of Perl should be
  23 ?C:     binary-compatible with Perl 5.005.  This is impossible for builds
  24 ?C:     that use features like threads and multiplicity it is always $undef
  25 ?C:     for those versions.
  26 ?C:.
  27 ?H:#$d_bincompat5005 PERL_BINCOMPAT_5005                        /**/
  28 ?H:.
  29 : Binary compatibility with 5.005 is not possible for builds
  30 : with advanced features
  31 case "$usethreads$usemultiplicity" in
  32 *define*)
  33         bincompat5005="$undef"
  34         d_bincompat5005="$undef"
  35         ;;
  36 *)      $cat <<EOM
  37
  38 This version of Perl can be compiled for binary compatibility with 5.005.
  39 If you decide to do so, you will be able to continue using most of the
  40 extensions that were compiled for Perl 5.005.
  41
  42 EOM
  43         case "$bincompat5005$d_bincompat5005" in
  44         *"$undef"*) dflt=n ;;
  45         *) dflt=y ;;
  46         esac
  47         rp='Binary compatibility with Perl 5.005?'
  48         . ./myread
  49         case "$ans" in
  50         y*) val="$define" ;;
  51         *)  val="$undef" ;;
  52         esac
  53         set d_bincompat5005
  54         eval $setvar
  55         case "$d_bincompat5005" in
  56         "$define")
  57                 bincompat5005="$define"
  58                 ;;
  59         *)      bincompat5005="$undef"
  60                 d_bincompat5005="$undef"
  61                 ;;
  62         esac
  63         ;;
  64 esac
  65
  66