Commit | Line | Data |
---|---|---|
959f3c4c JH |
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 | |
0d616ccb | 22 | ?C: binary-compatible with Perl 5.003. This is impossible for |
959f3c4c JH |
23 | ?C: 5.004_50 and later, so it is always undefined for those versions. |
24 | ?C:. | |
25 | ?H:#$d_bincompat3 BINCOMPAT3 /**/ | |
26 | ?H:. | |
959f3c4c JH |
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 |