Change 11300 by jhi@alpha on 2001/07/12 12:35:44
Integrate perlio.
Affected files ...
... //depot/perl/makedef.pl#76 integrate
... //depot/perl/win32/win32.c#163 integrate
Differences ...
==== //depot/perl/makedef.pl#76 (text) ====
Index: perl/makedef.pl
--- perl/makedef.pl.~1~ Thu Jul 12 06:45:05 2001
+++ perl/makedef.pl Thu Jul 12 06:45:05 2001
@@ -469,6 +469,12 @@
)];
}
+unless ($define{'USE_REENTRANT_API'}) {
+ skip_symbols [qw(
+ PL_reentrant_buffer
+ )];
+}
+
if ($define{'MYMALLOC'}) {
emit_symbols [qw(
Perl_dump_mstats
==== //depot/perl/win32/win32.c#163 (text) ====
Index: perl/win32/win32.c
--- perl/win32/win32.c.~1~ Thu Jul 12 06:45:05 2001
+++ perl/win32/win32.c Thu Jul 12 06:45:05 2001
@@ -3362,8 +3362,10 @@
dTHXo;
/* if this is a pseudo-forked child, we just want to spawn
* the new program, and return */
- if (w32_pseudo_id)
- return my_exit(win32_spawnvp(P_WAIT, cmdname, (char *const *)argv));
+ if (w32_pseudo_id) {
+ my_exit(win32_spawnvp(P_WAIT, cmdname, (char *const *)argv));
+ return 0;
+ }
#endif
return execvp(cmdname, (char *const *)argv);
}
End of Patch.
