Rename PL_breakable_sub_generation to PL_breakable_sub_gen, to please

the ANSI gods of VMS.

p4raw-id: //depot/perl@34886

1 files changed, 1 insertions, 1 deletions

diff --git a/op.c b/op.c
index 11e940b342..b67983520b 100644
--- a/op.c
+++ b/op.c
@@ -5802,7 +5802,7 @@ Perl_newATTRSUB(pTHX_ I32 floor, OP *o, OP *proto, OP *attrs, OP *block)
        pp_entereval that it should not throw away any saved lines at scope
        exit.  */
        
-    PL_breakable_sub_generation++;
+    PL_breakable_sub_gen++;
     if (CvLVALUE(cv)) {
 	CvROOT(cv) = newUNOP(OP_LEAVESUBLV, 0,
 			     mod(scalarseq(block), OP_LEAVESUBLV));