U/perl/bincompat3.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:bincompat3 d_bincompat3: Oldconfig Myread Setvar cat \
   7         patchlevel subversion
   8 ?MAKE:  -pick add $@ %<
   9 ?Y:TOP
  10 ?S:bincompat3:
  11 ?S:     This variable contains y if Perl 5.004 should be binary-compatible
  12 ?S:     with Perl 5.003.
  13 ?S:.
  14 ?S:d_bincompat3:
  15 ?S:     This variable conditionally defines BINCOMPAT3 so that embed.h
  16 ?S:     can take special action if Perl 5.004 should be binary-compatible
  17 ?S:     with Perl 5.003.  This is impossible for 5.004_50 and later, so
  18 ?S:     it is always $undef for those versions.
  19 ?S:.
  20 ?C:BINCOMPAT3:
  21 ?C:     This symbol, if defined, indicates that Perl 5.004 should be
  22 ?C:     binary-compatible with Perl 5.003.  This is impossible for
  23 ?C:     5.004_50 and later, so it is always undefined for those versions.
  24 ?C:.
  25 ?H:#$d_bincompat3 BINCOMPAT3                    /**/
  26 ?H:.
  27 : Binary compatibility with 5.003 is not possible with 5.004_50 and later.
  28 if test $patchlevel -gt 4 -o $subversion -ge 50; then
  29     d_bincompat3=$undef
  30 else
  31         $cat <<EOM
  32
  33 Perl 5.004 can be compiled for binary compatibility with 5.003.
  34 If you decide to do so, you will be able to continue using any
  35 extensions that were compiled for Perl 5.003.  However, binary
  36 compatibility forces Perl to expose some of its internal symbols
  37 in the same way that 5.003 did.  So you may have symbol conflicts
  38 if you embed a binary-compatible Perl in other programs.
  39
  40 EOM
  41         case "$d_bincompat3" in
  42         "$undef") dflt=n ;;
  43         *) dflt=y ;;
  44         esac
  45         rp='Binary compatibility with Perl 5.003?'
  46         . ./myread
  47         case "$ans" in
  48         y*) val="$define" ;;
  49         *)  val="$undef" ;;
  50         esac
  51         set d_bincompat3
  52         eval $setvar
  53         case "$d_bincompat3" in
  54         "$define") bincompat3=y ;;
  55         *) bincompat3=n ;;
  56         esac
  57 fi
  58