Make PL_compcv visible to BEGIN blocks

This allows BEGIN { XS_func(); } to access the currently-com-
piling pad.

BEGIN blocks were unlike any other subroutine or special block in that
PL_compcv would be set to the BEGIN block itself at run time.

1 files changed, 3 insertions, 0 deletions

diff --git a/op.c b/op.c
index d074c0c8a5..dfc1cd7b1a 100644
--- a/op.c
+++ b/op.c
@@ -7663,7 +7663,10 @@ Perl_newATTRSUB_flags(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs,
 	}
 
 	if (name && ! (PL_parser && PL_parser->error_count))
+	{
+	    LEAVE_SCOPE(floor);
 	    process_special_blocks(name, gv, cv);
+	}
     }
 
   done: