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 Perl 5.006 should be binary-compatible
  12 ?S:     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 Perl 5.006 should be binary-compatible
  17 ?S:     with Perl 5.005.  This is impossible for builds that use features
  18 ?S:     like threads and multiplicity it is always $undef for those versions.
  19 ?S:.
  20 ?C:PERL_BINCOMPAT_5005:
  21 ?C:     This symbol, if defined, indicates that Perl 5.006 should be
  22 ?C:     binary-compatible with Perl 5.005.  This is impossible for builds
  23 ?C:     that use features like threads and multiplicity it is always $undef
  24 ?C:     for those versions.
  25 ?C:.
  26 ?H:#$d_bincompat5005 PERL_BINCOMPAT_5005                        /**/
  27 ?H:.
  28 ?LINT: set d_bincompat5005
  29
  30 : Binary compatibility with 5.005 is not possible for builds
  31 : with advanced features
  32 case "$usethreads$usemultiplicity" in
  33 *define*)
  34         bincompat5005="$undef"
  35         d_bincompat5005="$undef"
  36         ;;
  37 *)      $cat <<EOM
  38
  39 Perl 5.006 can be compiled for binary compatibility with 5.005.
  40 If you decide to do so, you will be able to continue using most
  41 of the extensions that were compiled for Perl 5.005.
  42
  43 EOM
  44         case "$bincompat5005$d_bincompat5005" in
  45         *"$undef"*) dflt=n ;;
  46         *) dflt=y ;;
  47         esac
  48         rp='Binary compatibility with Perl 5.005?'
  49         . ./myread
  50         case "$ans" in
  51         y*) val="$define" ;;
  52         *)  val="$undef" ;;
  53         esac
  54         set d_bincompat5005
  55         eval $setvar
  56         case "$d_bincompat5005" in
  57         "$define")
  58                 bincompat5005="$define"
  59                 ;;
  60         *)      bincompat5005="$undef"
  61                 d_bincompat5005="$undef"
  62                 ;;
  63         esac
  64         ;;
  65 esac
  66
  67