  
  my $bison = 'bison';
  
+--- perl-5.24.1/t/run/dtrace.t
++++ perl-5.24.1/t/run/dtrace.t
+@@ -136,7 +136,7 @@
+     BEGIN {@INC = '../lib'}
+     use strict;
+     require HTTP::Tiny;
+-    do "run/dtrace.pl";
++    do "./run/dtrace.pl";
+ PERL_SCRIPT
+     << 'D_SCRIPT',
+     loading-file { printf("loading-file <%s>\n", copyinstr(arg0)) }
+--- perl-5.24.1/t/porting/utils.t
++++ perl-5.24.1/t/porting/utils.t
+@@ -22,7 +22,7 @@
+ use TestInit qw(T); # T is chdir to the top level
+ use strict;
+ 
+-require 't/test.pl';
++require './t/test.pl';
+ 
+ # It turns out that, since the default @INC will include your old 5.x libs, if
+ # you have them, the Porting utils might load a library that no longer compiles
+--- perl-5.24.1/t/porting/regen.t
++++ perl-5.24.1/t/porting/regen.t
+@@ -8,8 +8,8 @@
+ use TestInit qw(T A); # T is chdir to the top level, A makes paths absolute
+ use strict;
+ 
+-require 'regen/regen_lib.pl';
+-require 't/test.pl';
++require './regen/regen_lib.pl';
++require './t/test.pl';
+ $::NO_ENDING = $::NO_ENDING = 1;
+ 
+ if ( $^O eq "VMS" ) {
+--- perl-5.24.1/t/porting/readme.t
++++ perl-5.24.1/t/porting/readme.t
+@@ -10,7 +10,7 @@ BEGIN {
+ use TestInit qw(T); # T is chdir to the top level
+ use strict;
+ use warnings;
+-require 't/test.pl';
++require './t/test.pl';
+ 
+ my @porting_files;
+ open my $man, "MANIFEST" or die "Can't open MANIFEST: $!";
+--- perl-5.24.1/t/porting/pod_rules.t
++++ perl-5.24.1/t/porting/pod_rules.t
+@@ -25,7 +25,7 @@ BEGIN {
+       chdir '..';
+     }
+     @INC = qw(lib .); # Special @INC.
+-    require 't/test.pl';
++    require './t/test.pl';
+ }
+ 
+ use strict;
+--- perl-5.24.1/t/porting/pending-author.t
++++ perl-5.24.1/t/porting/pending-author.t
+@@ -27,7 +27,7 @@ use TestInit qw(T); # T is chdir to the top level
+ use strict;
+ use File::Spec;
+ 
+-require 't/test.pl';
++require './t/test.pl';
+ find_git_or_skip('all');
+ 
+ my $devnull = File::Spec->devnull;
+--- perl-5.24.1/t/porting/manifest.t
++++ perl-5.24.1/t/porting/manifest.t
+@@ -30,7 +30,7 @@ BEGIN {
+ }
+ use TestInit qw(T); # T is chdir to the top level
+ 
+-require 't/test.pl';
++require './t/test.pl';
+ 
+ skip_all("Cross-compiling, the entire source might not be available")
+     if $Config{usecrosscompile};
+--- perl-5.24.1/t/porting/globvar.t
++++ perl-5.24.1/t/porting/globvar.t
+@@ -4,7 +4,7 @@
+ use strict;
+ use Config;
+ 
+-require 't/test.pl';
++require './t/test.pl';
+ 
+ skip_all("Code to read symbols not ported to $^O")
+     if $^O eq 'VMS' or $^O eq 'MSWin32';
+--- perl-5.24.1/t/porting/diag.t
++++ perl-5.24.1/t/porting/diag.t
+@@ -9,7 +9,7 @@
+ use strict;
+ use Config;
+ 
+-require 't/test.pl';
++require './t/test.pl';
+ 
+ if ( $Config{usecrosscompile} ) {
+   skip_all( "Not all files are available during cross-compilation" );
+@@ -26,7 +26,7 @@
+ my $make_exceptions_list = ($ARGV[0]||'') eq '--make-exceptions-list'
+   and shift;
+ 
+-require 'regen/embed_lib.pl';
++require './regen/embed_lib.pl';
+ 
+ # Look for functions that look like they could be diagnostic ones.
+ my @functions;
+--- perl-5.24.1/t/porting/corelist.t
++++ perl-5.24.1/t/porting/corelist.t
+@@ -6,7 +6,7 @@
+ use strict;
+ use Config;
+ 
+-require 't/test.pl';
++require './t/test.pl';
+ 
+ plan(tests => 6);
+ 
+--- perl-5.24.1/t/porting/copyright.t
++++ perl-5.24.1/t/porting/copyright.t
+@@ -22,7 +22,7 @@
+ use TestInit;
+ use strict;
+ use Config;
+-BEGIN { require 'test.pl' }
++BEGIN { require './test.pl' }
+ 
+ if ( $Config{usecrosscompile} ) {
+   skip_all( "Not all files are available during cross-compilation" );
+--- perl-5.24.1/t/porting/cmp_version.t
++++ perl-5.24.1/t/porting/cmp_version.t
+@@ -16,7 +16,7 @@
+ use TestInit qw(T A); # T is chdir to the top level, A makes paths absolute
+ use strict;
+ 
+-require 't/test.pl';
++require './t/test.pl';
+ my $source = find_git_or_skip('all');
+ chdir $source or die "Can't chdir to $source: $!";
+ 
+--- perl-5.24.1/t/porting/bench.t
++++ perl-5.24.1/t/porting/bench.t
+@@ -8,7 +8,7 @@
+ use TestInit qw(T A); # T is chdir to the top level, A makes paths absolute
+ use strict;
+ 
+-require 't/test.pl';
++require './t/test.pl';
+ my $source = find_git_or_skip('all');
+ chdir $source or die "Can't chdir to $source: $!";
+ 
+--- perl-5.24.1/t/porting/authors.t
++++ perl-5.24.1/t/porting/authors.t
+@@ -7,7 +7,7 @@
+ use TestInit qw(T); # T is chdir to the top level
+ use strict;
+ 
+-require 't/test.pl';
++require './t/test.pl';
+ find_git_or_skip('all');
+ 
+ # This is the subset of "pretty=fuller" that checkAUTHORS.pl actually needs:
+--- perl-5.24.1/t/porting/libperl.t
++++ perl-5.24.1/t/porting/libperl.t
+@@ -129,7 +129,7 @@
+     }
+ }
+ 
+-if ($^O eq 'linux' && $Config{archname} !~ /^x86/) {
++if ($^O eq 'linux' && $Config{archname} !~ /^(?:x|i6)86/) {
+     # For example in ppc most (but not all!) code symbols are placed
+     # in 'D' (data), not in ' T '.  We cannot work under such conditions.
+     skip_all "linux but archname $Config{archname} not x86*";
 --- perl-5.24.1/Porting/corelist.pl	Mon Mar 27 10:42:11 2017
 +++ perl-5.24.1/Porting/corelist.pl	Mon Mar 20 18:08:38 2017
 @@ -21,8 +21,8 @@

 
     ioctl(STDIN,$TIOCGETP,$sgttyb)
         || die "Can't ioctl TIOCGETP: $!";
--- perl-5.24.1/autodoc.pl	Mon Mar 27 09:23:26 2017
+++ perl-5.24.1/autodoc.pl	Sat Jan 14 14:51:22 2017
@@ -29,8 +29,8 @@

 '
 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;
