Abstract all the accesses to cop_arybase (apart from ByteLoader)

p4raw-id: //depot/perl@27671

1 files changed, 5 insertions, 0 deletions

diff --git a/scope.c b/scope.c
index b4ecd65967..0070f6301f 100644
--- a/scope.c
+++ b/scope.c
@@ -981,6 +981,11 @@ Perl_leave_scope(pTHX_ I32 base)
 	    ptr = SSPOPPTR;
 	    (*SSPOPDPTR)(ptr);
 	    break;
+	case SAVEt_COP_ARYBASE:
+	    ptr = SSPOPPTR;
+	    i = SSPOPINT;
+	    CopARYBASE_set((COP *)ptr, i);
+	    break;
 	default:
 	    Perl_croak(aTHX_ "panic: leave_scope inconsistency");
 	}