Befator-Inc-Firmen-Netzwerk/MSYS2-packages
3
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 1 Wiki Activity

Update regen-path.patch

Browse Source
This commit is contained in:
PiterW
2017-04-19 12:41:14 +02:00
committed by GitHub
parent 3b9c1b5e3b
commit a0d93ef8ed
1 changed files with 494 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

497
perl/regen-path.patch
View File

@@ -1,3 +1,176 @@
--- perl-5.24.1/cpan/Compress-Raw-Bzip2/Makefile.PL
+++ perl-5.24.1/cpan/Compress-Raw-Bzip2/Makefile.PL
@@ -3,6 +3,7 @@
use strict ;
require 5.006 ;
+use lib '.';
use private::MakeUtil;
use ExtUtils::MakeMaker 5.16 ;
--- perl-5.24.1/cpan/Compress-Raw-Zlib/Makefile.PL
+++ perl-5.24.1/cpan/Compress-Raw-Zlib/Makefile.PL
@@ -3,6 +3,7 @@
use strict ;
require 5.006 ;
+use lib '.';
use private::MakeUtil;
use ExtUtils::MakeMaker 5.16 ;
use ExtUtils::Install (); # only needed to check for version
--- perl-5.24.1/cpan/IO-Compress/Makefile.PL
+++ perl-5.24.1/cpan/IO-Compress/Makefile.PL
@@ -5,6 +5,7 @@ require 5.006 ;
$::VERSION = '2.069' ;
+use lib '.';
use private::MakeUtil;
use ExtUtils::MakeMaker 5.16 ;
--- perl-5.24.1/cpan/Digest-MD5/MD5.xs
+++ perl-5.24.1/cpan/Digest-MD5/MD5.xs
@@ -156,7 +156,7 @@ STATIC int dup_md5_ctx(pTHX_ MAGIC *mg, CLONE_PARAMS *params)
#endif
#if defined(MGf_DUP) && defined(USE_ITHREADS)
-const STATIC MGVTBL vtbl_md5 = {
+STATIC const MGVTBL vtbl_md5 = {
NULL, /* get */
NULL, /* set */
NULL, /* len */
@@ -168,7 +168,7 @@ const STATIC MGVTBL vtbl_md5 = {
};
#else
/* declare as 5 member, not normal 8 to save image space*/
-const STATIC struct {
+STATIC const struct {
int (*svt_get)(SV* sv, MAGIC* mg);
int (*svt_set)(SV* sv, MAGIC* mg);
U32 (*svt_len)(SV* sv, MAGIC* mg);
@@ -788,7 +788,7 @@ md5(...)
PPCODE:
MD5Init(&ctx);
- if (PL_dowarn & G_WARN_ON) {
+ if ((PL_dowarn & G_WARN_ON) || ckWARN(WARN_SYNTAX)) {
const char *msg = 0;
if (items == 1) {
if (SvROK(ST(0))) {
--- perl-5.24.1/dist/PathTools/Cwd.xs
+++ perl-5.24.1/dist/PathTools/Cwd.xs
@@ -424,7 +424,7 @@ int Perl_getcwd_sv(pTHX_ SV *sv)
#endif
#if USE_MY_CXT
-# define MY_CXT_KEY "Cwd::_guts"XS_VERSION
+# define MY_CXT_KEY "Cwd::_guts" XS_VERSION
typedef struct {
SV *empty_string_sv, *slash_string_sv;
} my_cxt_t;
--- perl-5.24.1/dist/PathTools/Makefile.PL
+++ perl-5.24.1/dist/PathTools/Makefile.PL
@@ -1,5 +1,5 @@
-BEGIN { @INC = grep {!/blib/} @INC }
+BEGIN { @INC = grep { $_ ne "blib/arch" and $_ ne "blib/lib" } @INC }
require 5.005;
use ExtUtils::MakeMaker;
--- perl-5.24.1/dist/Time-HiRes/Makefile.PL
+++ perl-5.24.1/dist/Time-HiRes/Makefile.PL
@@ -290,6 +290,7 @@ sub has_clock_xxx_syscall {
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
+#include <time.h>
#include <$SYSCALL_H>
int main(int argc, char** argv)
{
@@ -309,6 +310,7 @@ sub has_clock_xxx {
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
+#include <time.h>
int main(int argc, char** argv)
{
struct timespec ts;
@@ -325,6 +327,7 @@ sub has_clock {
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
+#include <time.h>
int main(int argc, char** argv)
{
clock_t tictoc;
--- perl-5.24.1/ext/POSIX/POSIX.xs
+++ perl-5.24.1/ext/POSIX/POSIX.xs
@@ -1208,7 +1208,7 @@ static void S_setpayload(NV* nvp, NV_PAYLOAD_TYPE payload, bool signaling)
#endif
#ifdef NV_PAYLOAD_DEBUG
for (i = 0; i < (int)C_ARRAY_LENGTH(a); i++) {
- Perl_warn(aTHX_ "a[%d] = 0x%"UVxf"\n", i, a[i]);
+ Perl_warn(aTHX_ "a[%d] = 0x%" UVxf "\n", i, a[i]);
}
#endif
for (i = 0; i < (int)sizeof(p); i++) {
@@ -1219,7 +1219,7 @@ static void S_setpayload(NV* nvp, NV_PAYLOAD_TYPE payload, bool signaling)
((U8 *)(nvp))[i] &= ~m[i]; /* For NaNs with non-zero payload bits. */
((U8 *)(nvp))[i] |= b;
#ifdef NV_PAYLOAD_DEBUG
- Perl_warn(aTHX_ "set p[%2d] = %02x (i = %d, m = %02x, s = %2d, b = %02x, u = %08"UVxf")\n", i, ((U8 *)(nvp))[i], i, m[i], s, b, u);
+ Perl_warn(aTHX_ "set p[%2d] = %02x (i = %d, m = %02x, s = %2d, b = %02x, u = %08" UVxf ")\n", i, ((U8 *)(nvp))[i], i, m[i], s, b, u);
#endif
a[p[i] / UVSIZE] &= ~u;
}
@@ -1236,7 +1236,7 @@ static void S_setpayload(NV* nvp, NV_PAYLOAD_TYPE payload, bool signaling)
#endif
for (i = 0; i < (int)C_ARRAY_LENGTH(a); i++) {
if (a[i]) {
- Perl_warn(aTHX_ "payload lost bits (%"UVxf")", a[i]);
+ Perl_warn(aTHX_ "payload lost bits (%" UVxf ")", a[i]);
break;
}
}
@@ -1267,7 +1267,7 @@ static NV_PAYLOAD_TYPE S_getpayload(NV nv)
}
for (i = (int)C_ARRAY_LENGTH(a) - 1; i >= 0; i--) {
#ifdef NV_PAYLOAD_DEBUG
- Perl_warn(aTHX_ "a[%d] = %"UVxf"\n", i, a[i]);
+ Perl_warn(aTHX_ "a[%d] = %" UVxf "\n", i, a[i]);
#endif
payload *= UV_MAX;
payload += a[i];
--- perl-5.24.1/ext/XS-APItest/Makefile.PL
+++ perl-5.24.1/ext/XS-APItest/Makefile.PL
@@ -58,7 +58,8 @@ sub MY::postamble
DTRACE_D = ../../perldtrace.d
dtrace\$(OBJ_EXT): \$(DTRACE_D) core\$(OBJ_EXT)
- $Config{dtrace} -G -s \$(DTRACE_D) -o dtrace\$(OBJ_EXT) core\$(OBJ_EXT)
+ $Config{dtrace} -G -s \$(DTRACE_D) -o dtrace\$(OBJ_EXT) core\$(OBJ_EXT) || \\
+ ( \$(ECHO) >dtrace.c && \$(CCCMD) \$(CCCDLFLAGS) dtrace.c && rm -f dtrace.c )
POSTAMBLE
return $post;
--- perl-5.24.1/hints/msys.sh
+++ perl-5.24.1/hints/msys.sh
@@ -96,3 +96,4 @@ lddlflags="$lddlflags $ldflags"
# strip exe's and dll's, better do it afterwards
#ldflags="$ldflags -s"
#ccdlflags="$ccdlflags -s"
+#lddlflags="$lddlflags -s"
--- perl-5.24.1/lib/B/Deparse.t
+++ perl-5.24.1/lib/B/Deparse.t
@@ -7,7 +7,7 @@ BEGIN {
print "1..0 # Skip -- Perl configured without B module\n";
exit 0;
}
- require 'test.pl';
+ require './test.pl';
}
use warnings;
--- perl-5.24.1/utils/Makefile.PL Sat Feb 18 19:06:04 2017
+++ perl-5.24.1/utils/Makefile.PL Tue Jan 17 08:34:48 2017
@@ -13,7 +13,7 @@
@@ -34,7 +207,7 @@
+ require './regen/embed_lib.pl';
}
my $SPLINT = 0; # Turn true for experimental splint support http://www.splint.org
my $unflagged_pointers;
--- perl-5.24.1/regen/feature.pl Sat Feb 18 19:05:54 2017
+++ perl-5.24.1/regen/feature.pl Sat Jan 14 13:52:29 2017
@@ -11,7 +11,7 @@
@@ -150,17 +323,19 @@
use strict;
--- perl-5.24.1/regen/regcharclass.pl Sat Feb 18 19:05:54 2017
+++ perl-5.24.1/regen/regcharclass.pl Sat Jan 14 13:52:29 2017
@@ -11,8 +11,8 @@
@@ -11,9 +11,9 @@ our $hex_fmt= "0x%02X";
sub DEBUG () { 0 }
$|=1 if DEBUG;
-require 'regen/regen_lib.pl';
-require 'regen/charset_translations.pl';
-require "regen/regcharclass_multi_char_folds.pl";
+require './regen/regen_lib.pl';
+require './regen/charset_translations.pl';
require "regen/regcharclass_multi_char_folds.pl";
+require "./regen/regcharclass_multi_char_folds.pl";
=head1 NAME
--- perl-5.24.1/regen/regcomp.pl Sat Feb 18 19:05:54 2017
+++ perl-5.24.1/regen/regcomp.pl Sat Jan 14 13:52:29 2017
@@ -20,7 +20,7 @@
@@ -207,6 +382,28 @@
push @INC, './lib';
}
use strict ;
--- perl-5.24.1/Porting/bench.pl
+++ perl-5.24.1/Porting/bench.pl
@@ -1315,7 +1315,7 @@ EOF
},
);
- for ('t', '.') {
+ for ('./t', '.') {
last if require "$_/test.pl";
}
plan(@tests / 3 * keys %VALID_FIELDS);
--- perl-5.24.1/Porting/bisect.pl
+++ perl-5.24.1/Porting/bisect.pl
@@ -61,7 +61,7 @@ if (!defined $jobs &&
while (<$fh>) {
++$cpus if /^processor\s+:\s+\d+$/;
}
- } elsif (-x '/sbin/sysctl') {
+ } elsif (-x '/sbin/sysctl' || -x '/usr/sbin/sysctl') {
$cpus = $1 if `/sbin/sysctl hw.ncpu` =~ /^hw\.ncpu: (\d+)$/;
} elsif (-x '/usr/bin/getconf') {
$cpus = $1 if `/usr/bin/getconf _NPROCESSORS_ONLN` =~ /^(\d+)$/;
--- perl-5.24.1/Porting/checkcfgvar.pl Sat Feb 18 19:05:51 2017
+++ perl-5.24.1/Porting/checkcfgvar.pl Sat Jan 14 13:51:21 2017
@@ -36,7 +36,7 @@
@@ -218,6 +415,38 @@
my $MASTER_CFG = "config_h.SH";
# Inclusive bounds on the main part of the file, $section == 1 below:
--- perl-5.24.1/Porting/cmpVERSION.pl
+++ perl-5.24.1/Porting/cmpVERSION.pl
@@ -83,6 +83,7 @@
@skip{
'cpan/ExtUtils-MakeMaker/t/lib/MakeMaker/Test/Setup/BFD.pm', # just a test module
'cpan/ExtUtils-MakeMaker/t/lib/MakeMaker/Test/Setup/XS.pm', # just a test module
+ 'cpan/IO-Compress/lib/File/GlobMapper.pm', # upstream needs to supply $VERSION
'cpan/Math-BigInt/t/Math/BigFloat/Subclass.pm', # just a test module
'cpan/Math-BigInt/t/Math/BigInt/BareCalc.pm', # just a test module
'cpan/Math-BigInt/t/Math/BigInt/Scalar.pm', # just a test module
--- perl-5.24.1/Porting/corelist.pl
+++ perl-5.24.1/Porting/corelist.pl
@@ -99,7 +99,7 @@ find(
/(\.pm|_pm\.PL)$/ or return;
/PPPort\.pm$/ and return;
my $module = $File::Find::name;
- $module =~ /\b(demo|t|private)\b/ and return; # demo or test modules
+ $module =~ /\b(demo|t|private|corpus)\b/ and return; # demo or test modules
my $version = MM->parse_version($_);
defined $version or $version = 'undef';
$version =~ /\d/ and $version = "'$version'";
--- perl-5.24.1/Porting/makemeta
+++ perl-5.24.1/Porting/makemeta
@@ -61,7 +61,7 @@
BEGIN {
# Get function prototypes
- require 'regen/regen_lib.pl';
+ require './regen/regen_lib.pl';
}
use Maintainers qw(%Modules get_module_files get_module_pat);
--- perl-5.24.1/Porting/new-perldelta.pl Sat Feb 18 19:05:52 2017
+++ perl-5.24.1/Porting/new-perldelta.pl Sat Jan 14 13:51:21 2017
@@ -4,7 +4,7 @@
@@ -229,6 +458,17 @@
my $state = get_pod_metadata(1);
my (undef, $old_major, $old_minor) = @{$state->{delta_version}};
--- perl-5.24.1/Porting/sync-with-cpan
+++ perl-5.24.1/Porting/sync-with-cpan
@@ -142,7 +142,7 @@
use autodie;
-require "Porting/Maintainers.pl";
+require "./Porting/Maintainers.pl";
my %IGNORABLE = map {$_ => 1} @IGNORABLE;
--- perl-5.24.1/pod/buildtoc Sat Feb 18 19:05:47 2017
+++ perl-5.24.1/pod/buildtoc Sat Jan 14 13:52:26 2017
@@ -14,7 +14,7 @@
@@ -251,6 +491,28 @@
# 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 @@
@@ -262,6 +524,17 @@
ioctl(STDIN,&TIOCGETP,$sgttyb)
|| die "Can't ioctl TIOCGETP: $!";
--- perl-5.24.1/t/uni/title.t
+++ perl-5.24.1/t/uni/title.t
@@ -4,7 +4,7 @@
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/cbreak2.pl Sat Feb 18 19:05:35 2017
+++ perl-5.24.1/h2pl/cbreak2.pl Sat Jan 14 13:52:22 2017
@@ -11,7 +11,7 @@
@@ -273,6 +546,17 @@
ioctl(STDIN,$TIOCGETP,$sgttyb)
|| die "Can't ioctl TIOCGETP: $!";
--- perl-5.24.1/t/uni/lower.t
+++ perl-5.24.1/t/uni/lower.t
@@ -4,7 +4,7 @@
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/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 @@
@@ -286,6 +570,15 @@
#
# See database of global and static function prototypes in embed.fnc
--- perl-5.24.1/t/uni/case.pl
+++ perl-5.24.1/t/uni/case.pl
@@ -1,5 +1,5 @@
BEGIN {
- require "test.pl";
+ require "./test.pl";
set_up_inc(qw(../lib .));
skip_all_without_unicode_tables();
}
--- 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 @@
@@ -297,6 +590,182 @@
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 @@
@@ -353,3 +822,25 @@
'
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;