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, 3 deletions

diff --git a/perl.c b/perl.c
index 7d71030106..3ddbbfb55c 100644
--- a/perl.c
+++ b/perl.c
@@ -1053,9 +1053,6 @@ perl_destruct(pTHXx)
     if (!specialWARN(PL_compiling.cop_warnings))
 	PerlMemShared_free(PL_compiling.cop_warnings);
     PL_compiling.cop_warnings = NULL;
-    if (!specialCopIO(PL_compiling.cop_io))
-	SvREFCNT_dec(PL_compiling.cop_io);
-    PL_compiling.cop_io = NULL;
     Perl_refcounted_he_free(aTHX_ PL_compiling.cop_hints_hash);
     PL_compiling.cop_hints_hash = NULL;
     CopFILE_free(&PL_compiling);