  
  # MANIFEST itself is Unix style filenames, so we have to assume that Unix style
  # filenames will work.
+--- perl-5.24.1/t/thread_it.pl
++++ perl-5.24.1/t/thread_it.pl
+@@ -19,7 +19,7 @@
+ die "Can't figure out which test to run from filename '$caller'"
+     unless $caller =~ m!((?:op|re)/[-_a-z0-9A-Z]+)_thr\.t\z!;
+ 
+-my $file = "$1.t";
++my $file = "./$1.t";
+ 
+ $::running_as_thread = "running tests in a new thread";
+ require $file;
+--- perl-5.24.1/t/uni/upper.t
++++ perl-5.24.1/t/uni/upper.t
+@@ -4,7 +4,7 @@ BEGIN {
+       print("1..0 # miniperl: no Unicode::Normalize");
+       exit(0);
+     }
+-    require "uni/case.pl";
++    require "./uni/case.pl";
+ }
+ 
+ use feature 'unicode_strings';
 --- perl-5.24.1/h2pl/cbreak.pl	Sat Feb 18 19:05:35 2017
 +++ perl-5.24.1/h2pl/cbreak.pl	Sat Jan 14 13:52:22 2017
 @@ -12,7 +12,7 @@

 
 #
 # See database of global and static function prototypes in embed.fnc
--- perl-5.24.1/regen_perly.pl	Mon Mar 27 09:24:48 2017
+++ perl-5.24.1/regen_perly.pl	Sat Jan 14 14:52:29 2017
@@ -35,7 +35,7 @@

 '
 for f in $dynamic_ext; do
     : the dependency named here will never exist
@@ -338,7 +339,7 @@ define?*)
 	$spitshell >>$Makefile <<!GROK!THIS!
 # Macros to invoke a copy of our fully operational perl during the build.
 PERL_EXE = perl\$(EXE_EXT)
-RUN_PERL = \$(LDLIBPTH) \$(RUN) $perl\$(EXE_EXT)
+RUN_PERL = \$(LDLIBPTH) \$(RUN) ./$perl\$(EXE_EXT)
 !GROK!THIS!
 	;;
 *)
--- perl-5.24.1/pp_sys.c
+++ perl-5.24.1/pp_sys.c
@@ -706,8 +706,8 @@ PP(pp_pipe_op)
     if (PerlProc_pipe(fd) < 0)
 	goto badexit;
 
-    IoIFP(rstio) = PerlIO_fdopen(fd[0], "r"PIPE_OPEN_MODE);
-    IoOFP(wstio) = PerlIO_fdopen(fd[1], "w"PIPE_OPEN_MODE);
+    IoIFP(rstio) = PerlIO_fdopen(fd[0], "r" PIPE_OPEN_MODE);
+    IoOFP(wstio) = PerlIO_fdopen(fd[1], "w" PIPE_OPEN_MODE);
     IoOFP(rstio) = IoIFP(rstio);
     IoIFP(wstio) = IoOFP(wstio);
     IoTYPE(rstio) = IoTYPE_RDONLY;
