Integrate perlio:

[  7983]
PERL_IMPLICIT_SYS (almost) works - something odd with "signal"

p4raw-link: @7983 on //depot/perlio: 5f1a76d08cedee4f2888d077fe9593b03dd9bd13

p4raw-id: //depot/perl@7985

1 files changed, 1 insertions, 1 deletions

diff --git a/sv.c b/sv.c
index d645a6dfcf..f875d58053 100644
--- a/sv.c
+++ b/sv.c
@@ -6737,7 +6737,7 @@ Perl_fp_dup(pTHX_ PerlIO *fp, char type)
 	return ret;
 
     /* create anew and remember what it is */
-    ret = PerlIO_fdupopen(fp);
+    ret = PerlIO_fdupopen(aTHX_ fp);
     ptr_table_store(PL_ptr_table, fp, ret);
     return ret;
 }