MahnoKropotkinvich/redox
1
0
Fork 0
mirror of https://gitlab.redox-os.org/redox-os/redox.git synced 2026-07-06 03:28:42 +08:00
Code Issues Actions Packages Projects Releases Wiki Activity

perl: Forking fixes

Browse Source
This commit is contained in:
Ian Douglas Scott 2017-08-17 17:03:22 -07:00
parent 8ba6a1dded
commit 926a20832a
No known key found for this signature in database
GPG Key ID: 4924E10E199B5959
1 changed files with 28 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
recipes/perl/perl.patch
View File

@ -171,7 +171,25 @@ diff -ru source/pp_sys.c source-new/pp_sys.c
const struct group *grent;
diff -ru source/util.c source-new/util.c
--- source/util.c 2017-06-30 14:03:22.000000000 -0700
+++ source-new/util.c 2017-08-17 14:47:03.963804576 -0700
+++ source-new/util.c 2017-08-17 15:42:05.328932377 -0700
@@ -2456,7 +2456,7 @@
PerlIO *
Perl_my_popen_list(pTHX_ const char *mode, int n, SV **args)
{
-#if (!defined(DOSISH) || defined(HAS_FORK)) && !defined(OS2) && !defined(VMS) && !defined(NETWARE) && !defined(__LIBCATAMOUNT__) && !defined(__amigaos4__)
+#if 1
int p[2];
I32 This, that;
Pid_t pid;
@@ -2821,7 +2821,7 @@
Pid_t
Perl_my_fork(void)
{
-#if defined(HAS_FORK)
+#if 1
Pid_t pid;
#if defined(USE_ITHREADS) && !defined(HAS_PTHREAD_ATFORK)
atfork_lock();
@@ -2842,7 +2842,7 @@
#endif /* HAS_FORK */
}
@ -181,3 +199,12 @@ diff -ru source/util.c source-new/util.c
int
dup2(int oldfd, int newfd)
{
@@ -3196,7 +3196,7 @@
#if defined(OS2)
int pclose();
-#ifdef HAS_FORK
+#if 1
int /* Cannot prototype with I32
in os2ish.h. */
my_syspclose(PerlIO *ptr)