PERL_IMPLICIT_SYS (almost) works - something odd with "signal"

p4raw-id: //depot/perlio@7983

1 files changed, 1 insertions, 1 deletions

diff --git a/sv.c b/sv.c
index 01076cbe02..6658552ec0 100644
--- a/sv.c
+++ b/sv.c
@@ -6789,7 +6789,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;
 }