diff --git a/recipes/perl/perl.patch b/recipes/perl/perl.patch
index ab8a934db727001fd943d98cfe5ff2a4e7e943f4..81b33b295213e33c390061ab43ffaca8ef36d13c 100644
--- a/recipes/perl/perl.patch
+++ b/recipes/perl/perl.patch
@@ -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)