From 5f1a76d08cedee4f2888d077fe9593b03dd9bd13 Mon Sep 17 00:00:00 2001
From: Nick Ing-Simmons <nik@tiuk.ti.com>
Date: Mon, 4 Dec 2000 23:27:43 +0000
Subject: PERL_IMPLICIT_SYS (almost) works - something odd with "signal"

p4raw-id: //depot/perlio@7983
---
 sv.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'sv.c')

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;
 }
-- 
cgit v1.2.1