summaryrefslogtreecommitdiff
path: root/pp_sys.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2000-11-22 21:56:02 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2000-11-22 21:56:02 +0000
commit9d44748a0f52a5e96caf806267c5b6169b61e461 (patch)
tree9186821a63c56709b66539f5c2ec31606eddada8 /pp_sys.c
parent76c6a4686250b587eb3b7bb07fd68983ded85533 (diff)
downloadperl-9d44748a0f52a5e96caf806267c5b6169b61e461.tar.gz
More SOCKS versus 64-bit patches from Jens Hamisch.
p4raw-id: //depot/perl@7818
Diffstat (limited to 'pp_sys.c')
-rw-r--r--pp_sys.c3
1 files changed, 3 insertions, 0 deletions
diff --git a/pp_sys.c b/pp_sys.c
index 12c368dea3..2194653a1f 100644
--- a/pp_sys.c
+++ b/pp_sys.c
@@ -3724,6 +3724,9 @@ PP(pp_fork)
if (childpid < 0)
RETSETUNDEF;
if (!childpid) {
+#ifdef SOCKS_64BIT_BUG
+ Perl_do_s64_init_buffer();
+#endif
/*SUPPRESS 560*/
if ((tmpgv = gv_fetchpv("$", TRUE, SVt_PV)))
sv_setiv(GvSV(tmpgv), (IV)PerlProc_getpid());