Change 29469 by [EMAIL PROTECTED] on 2006/12/05 16:06:31
Extend d_pseudofork to Win32-land and set it when appropriate
(namely, when we have USE_ITHREADS and PERL_IMPLICIT_SYSTEM)
Affected files ...
... //depot/perl/win32/config.bc#168 edit
... //depot/perl/win32/config.gc#166 edit
... //depot/perl/win32/config.vc#175 edit
... //depot/perl/win32/config.vc64#45 edit
... //depot/perl/win32/config_H.bc#171 edit
... //depot/perl/win32/config_H.gc#165 edit
... //depot/perl/win32/config_H.vc#168 edit
... //depot/perl/win32/config_H.vc64#50 edit
... //depot/perl/win32/config_sh.PL#37 edit
Differences ...
==== //depot/perl/win32/config.bc#168 (text) ====
Index: perl/win32/config.bc
--- perl/win32/config.bc#167~29397~ 2006-11-27 09:44:27.000000000 -0800
+++ perl/win32/config.bc 2006-12-05 08:06:31.000000000 -0800
@@ -333,6 +333,7 @@
d_portable='define'
d_printf_format_null='undef'
d_procselfexe='undef'
+d_pseudofork='undef'
d_pthread_atfork='undef'
d_pthread_attr_setscope='undef'
d_pthread_yield='undef'
==== //depot/perl/win32/config.gc#166 (text) ====
Index: perl/win32/config.gc
--- perl/win32/config.gc#165~29397~ 2006-11-27 09:44:27.000000000 -0800
+++ perl/win32/config.gc 2006-12-05 08:06:31.000000000 -0800
@@ -333,6 +333,7 @@
d_portable='define'
d_printf_format_null='undef'
d_procselfexe='undef'
+d_pseudofork='undef'
d_pthread_atfork='undef'
d_pthread_attr_setscope='undef'
d_pthread_yield='undef'
==== //depot/perl/win32/config.vc#175 (text) ====
Index: perl/win32/config.vc
--- perl/win32/config.vc#174~29397~ 2006-11-27 09:44:27.000000000 -0800
+++ perl/win32/config.vc 2006-12-05 08:06:31.000000000 -0800
@@ -333,6 +333,7 @@
d_portable='define'
d_printf_format_null='undef'
d_procselfexe='undef'
+d_pseudofork='undef'
d_pthread_atfork='undef'
d_pthread_attr_setscope='undef'
d_pthread_yield='undef'
==== //depot/perl/win32/config.vc64#45 (text) ====
Index: perl/win32/config.vc64
--- perl/win32/config.vc64#44~29397~ 2006-11-27 09:44:27.000000000 -0800
+++ perl/win32/config.vc64 2006-12-05 08:06:31.000000000 -0800
@@ -333,6 +333,7 @@
d_portable='define'
d_printf_format_null='undef'
d_procselfexe='undef'
+d_pseudofork='undef'
d_pthread_atfork='undef'
d_pthread_attr_setscope='undef'
d_pthread_yield='undef'
==== //depot/perl/win32/config_H.bc#171 (text+w) ====
Index: perl/win32/config_H.bc
--- perl/win32/config_H.bc#170~29397~ 2006-11-27 09:44:27.000000000 -0800
+++ perl/win32/config_H.bc 2006-12-05 08:06:31.000000000 -0800
@@ -3274,6 +3274,12 @@
*/
/*#define HAS_VFORK /**/
+/* HAS_PSEUDOFORK:
+ * This symbol, if defined, indicates that an emulation of the
+ * fork routine is available.
+ */
+/*#define HAS_PSEUDOFORK /**/
+
/* Signal_t:
* This symbol's value is either "void" or "int", corresponding to the
* appropriate return type of a signal handler. Thus, you can declare
==== //depot/perl/win32/config_H.gc#165 (text+w) ====
Index: perl/win32/config_H.gc
--- perl/win32/config_H.gc#164~29397~ 2006-11-27 09:44:27.000000000 -0800
+++ perl/win32/config_H.gc 2006-12-05 08:06:31.000000000 -0800
@@ -3290,6 +3290,12 @@
*/
/*#define HAS_VFORK /**/
+/* HAS_PSEUDOFORK:
+ * This symbol, if defined, indicates that an emulation of the
+ * fork routine is available.
+ */
+/*#define HAS_PSEUDOFORK /**/
+
/* Signal_t:
* This symbol's value is either "void" or "int", corresponding to the
* appropriate return type of a signal handler. Thus, you can declare
==== //depot/perl/win32/config_H.vc#168 (text+w) ====
Index: perl/win32/config_H.vc
--- perl/win32/config_H.vc#167~29397~ 2006-11-27 09:44:27.000000000 -0800
+++ perl/win32/config_H.vc 2006-12-05 08:06:31.000000000 -0800
@@ -3286,6 +3286,12 @@
*/
/*#define HAS_VFORK /**/
+/* HAS_PSEUDOFORK:
+ * This symbol, if defined, indicates that an emulation of the
+ * fork routine is available.
+ */
+/*#define HAS_PSEUDOFORK /**/
+
/* Signal_t:
* This symbol's value is either "void" or "int", corresponding to the
* appropriate return type of a signal handler. Thus, you can declare
==== //depot/perl/win32/config_H.vc64#50 (text) ====
Index: perl/win32/config_H.vc64
--- perl/win32/config_H.vc64#49~29397~ 2006-11-27 09:44:27.000000000 -0800
+++ perl/win32/config_H.vc64 2006-12-05 08:06:31.000000000 -0800
@@ -3274,6 +3274,12 @@
*/
/*#define HAS_VFORK /**/
+/* HAS_PSEUDOFORK:
+ * This symbol, if defined, indicates that an emulation of the
+ * fork routine is available.
+ */
+/*#define HAS_PSEUDOFORK /**/
+
/* Signal_t:
* This symbol's value is either "void" or "int", corresponding to the
* appropriate return type of a signal handler. Thus, you can declare
==== //depot/perl/win32/config_sh.PL#37 (text) ====
Index: perl/win32/config_sh.PL
--- perl/win32/config_sh.PL#36~28460~ 2006-06-30 06:46:06.000000000 -0700
+++ perl/win32/config_sh.PL 2006-12-05 08:06:31.000000000 -0800
@@ -109,6 +109,10 @@
$opt{lseektype} = 'off_t';
}
+if ($opt{useithreads} eq 'define' && $opt{ccflags} =~ / -DPERL_IMPLICIT_SYS/) {
+ $opt{d_pseudofork} = 'define';
+}
+
while (<>) {
s/~([\w_]+)~/$opt{$1}/g;
if (/^([\w_]+)=(.*)$/) {
End of Patch.
