Abolish cop_io (the simple way) by storing the value in cop_hints_hash.

Todo - store the in and out values under 2 keys, and avoid the need to
create a temporary mortal SV while checking it.

p4raw-id: //depot/perl@28258

1 files changed, 0 insertions, 2 deletions

diff --git a/sv.c b/sv.c
index 8b17f37c0c..d6e307d583 100644
--- a/sv.c
+++ b/sv.c
@@ -10963,8 +10963,6 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags,
 
     ptr_table_store(PL_ptr_table, &proto_perl->Icompiling, &PL_compiling);
     PL_compiling.cop_warnings = DUP_WARNINGS(PL_compiling.cop_warnings);
-    if (!specialCopIO(PL_compiling.cop_io))
-	PL_compiling.cop_io = sv_dup_inc(PL_compiling.cop_io, param);
     if (PL_compiling.cop_hints_hash) {
 	HINTS_REFCNT_LOCK;
 	PL_compiling.cop_hints_hash->refcounted_he_refcnt++;