From 953c8b803c4f6f9b009938456f308e41848dbeb6 Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Sat, 15 Nov 2014 10:09:24 -0800 Subject: Put PL_cop_seqmax++ code in one spot --- pad.h | 3 +++ 1 file changed, 3 insertions(+) (limited to 'pad.h') diff --git a/pad.h b/pad.h index 3ca79d342a..0e29b10d90 100644 --- a/pad.h +++ b/pad.h @@ -39,6 +39,9 @@ struct padlist { * flagging that a lexical is being introduced, or has not yet left scope */ #define PERL_PADSEQ_INTRO U32_MAX +#define COP_SEQMAX_INC \ + (PL_cop_seqmax++, \ + (void)(PL_cop_seqmax == PERL_PADSEQ_INTRO && PL_cop_seqmax++)) /* B.xs needs these for the benefit of B::Deparse */ -- cgit v1.2.1