https://perl5.git.perl.org / metaconfig.git / blame
| Commit | Line | Data |
|---|---|---|
| 33a01fd2 | 1 | ?RCS: $Id$ |
| d8875586 MBT |
2 | ?RCS: |
| 3 | ?RCS: Copyright (c) 1991-1997, 2004-2006, Raphael Manfredi | |
| cf39bd7e | 4 | ?RCS: |
| 33a01fd2 | 5 | ?RCS: You may redistribute only under the terms of the Artistic License, |
| d8875586 MBT |
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 | |
| 33a01fd2 | 8 | ?RCS: that same Artistic License; a copy of which may be found at the root |
| d8875586 MBT |
9 | ?RCS: of the source tree for dist 4.0. |
| 10 | ?RCS: | |
| 11 | ?RCS: $Log: d_vfork.U,v $ | |
| 12 | ?RCS: Revision 3.0.1.6 1994/08/29 16:18:21 ram | |
| 13 | ?RCS: patch32: set default to 'y' the first time | |
| 14 | ?RCS: | |
| 15 | ?RCS: Revision 3.0.1.5 1994/06/20 06:59:14 ram | |
| 16 | ?RCS: patch30: usevfork was not always properly set | |
| 17 | ?RCS: | |
| 18 | ?RCS: Revision 3.0.1.4 1994/05/13 15:20:56 ram | |
| 19 | ?RCS: patch27: modified to avoid spurious Whoa warnings (ADO) | |
| 20 | ?RCS: | |
| 21 | ?RCS: Revision 3.0.1.3 1994/05/06 14:59:09 ram | |
| 75e25e37 | 22 | ?RCS: patch23: now explicitly ask whether vfork() should be used (ADO) |
| d8875586 MBT |
23 | ?RCS: |
| 24 | ?RCS: Revision 3.0.1.2 1993/10/16 13:49:39 ram | |
| 25 | ?RCS: patch12: added magic for vfork() | |
| 26 | ?RCS: | |
| 27 | ?RCS: Revision 3.0.1.1 1993/09/13 16:06:57 ram | |
| 28 | ?RCS: patch10: removed automatic remapping of vfork on fork (WAD) | |
| 29 | ?RCS: patch10: added compatibility code for older config.sh (WAD) | |
| 30 | ?RCS: | |
| 31 | ?RCS: Revision 3.0 1993/08/18 12:07:55 ram | |
| 32 | ?RCS: Baseline for dist 3.0 netwide release. | |
| 33 | ?RCS: | |
| 34 | ?MAKE:d_vfork usevfork: Inlibc Myread Oldconfig Setvar | |
| 35 | ?MAKE: -pick add $@ %< | |
| 36 | ?S:d_vfork: | |
| 37 | ?S: This variable conditionally defines the HAS_VFORK symbol, which | |
| 38 | ?S: indicates the vfork() routine is available. | |
| 39 | ?S:. | |
| 40 | ?S:usevfork: | |
| 41 | ?S: This variable is set to true when the user accepts to use vfork. | |
| 42 | ?S: It is set to false when no vfork is available or when the user | |
| 43 | ?S: explicitly requests not to use vfork. | |
| 44 | ?S:. | |
| 45 | ?C:HAS_VFORK (VFORK): | |
| 46 | ?C: This symbol, if defined, indicates that vfork() exists. | |
| 47 | ?C:. | |
| 48 | ?H:#$d_vfork HAS_VFORK /**/ | |
| 49 | ?H:. | |
| 50 | ?M:vfork: HAS_VFORK | |
| 51 | ?M:#ifndef HAS_VFORK | |
| 52 | ?M:#define vfork fork | |
| 53 | ?M:#endif | |
| 54 | ?M:. | |
| 55 | ?LINT:set d_vfork | |
| 56 | : see if there is a vfork | |
| 57 | val='' | |
| 58 | set vfork val | |
| 59 | eval $inlibc | |
| 60 | ||
| 61 | : Ok, but do we want to use it. vfork is reportedly unreliable in | |
| 62 | : perl on Solaris 2.x, and probably elsewhere. | |
| 63 | case "$val" in | |
| 64 | $define) | |
| 65 | echo " " | |
| 66 | case "$usevfork" in | |
| 67 | false) dflt='n';; | |
| 68 | *) dflt='y';; | |
| 69 | esac | |
| 70 | rp="Some systems have problems with vfork(). Do you want to use it?" | |
| 71 | . ./myread | |
| 72 | case "$ans" in | |
| 73 | y|Y) ;; | |
| 74 | *) | |
| 75 | echo "Ok, we won't use vfork()." | |
| 76 | val="$undef" | |
| 77 | ;; | |
| 78 | esac | |
| 79 | ;; | |
| 80 | esac | |
| 81 | ?X: | |
| 82 | ?X: Only set it when final value is known to avoid spurious Whoas | |
| 83 | ?X: Then set usevfork accordingly to the current value, for next run | |
| 84 | ?X: | |
| 85 | set d_vfork | |
| 86 | eval $setvar | |
| 87 | case "$d_vfork" in | |
| 88 | $define) usevfork='true';; | |
| 89 | *) usevfork='false';; | |
| 90 | esac | |
| 91 |