From 11bcd5dad4f9d911a9454f9d858c2dd0d14ddf2a Mon Sep 17 00:00:00 2001 From: Nicholas Clark Date: Sat, 20 May 2006 17:29:52 +0000 Subject: 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 --- pp_ctl.c | 9 --------- 1 file changed, 9 deletions(-) (limited to 'pp_ctl.c') diff --git a/pp_ctl.c b/pp_ctl.c index 1cdf5928a7..c5b475556e 100644 --- a/pp_ctl.c +++ b/pp_ctl.c @@ -3373,8 +3373,6 @@ PP(pp_require) } else PL_compiling.cop_warnings = pWARN_STD ; - SAVESPTR(PL_compiling.cop_io); - PL_compiling.cop_io = NULL; if (filter_sub || filter_cache) { SV * const datasv = filter_add(S_run_user_filter, NULL); @@ -3468,13 +3466,6 @@ PP(pp_entereval) GvHV(PL_hintgv) = saved_hh; SAVECOMPILEWARNINGS(); PL_compiling.cop_warnings = DUP_WARNINGS(PL_curcop->cop_warnings); - SAVESPTR(PL_compiling.cop_io); - if (specialCopIO(PL_curcop->cop_io)) - PL_compiling.cop_io = PL_curcop->cop_io; - else { - PL_compiling.cop_io = newSVsv(PL_curcop->cop_io); - SAVEFREESV(PL_compiling.cop_io); - } if (PL_compiling.cop_hints_hash) { Perl_refcounted_he_free(aTHX_ PL_compiling.cop_hints_hash); } -- cgit v1.2.1