From 792bf4bab089d68ffc6344f65e675d4117390c15 Mon Sep 17 00:00:00 2001 From: "Paul \"LeoNerd\" Evans" Date: Tue, 5 Jul 2022 11:39:36 +0100 Subject: Neaten the PADNAME flag constants Rename the `PADNAMEt_*` constants to `PADNAMEf_*`, as they're supposed to represent bitflags, not a type enumeration. Also updated the `B` and `B::Deparse` modules to make use of the new modern names (and avoid the old `SVpad_*` flags). Also added `PADNAMEt_*` back-compat defines, guarded by `#ifndef PERL_CORE` so as not to permit their use accidentally within perl core. --- pad.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'pad.c') diff --git a/pad.c b/pad.c index da107fe847..bc967ec1f2 100644 --- a/pad.c +++ b/pad.c @@ -2753,9 +2753,9 @@ Perl_newPADNAMEpvn(const char *s, STRLEN len) Constructs and returns a new pad name. Only use this function for names that refer to outer lexicals. (See also L.) C is the outer pad name that this one mirrors. The returned pad name has the -C flag already set. +C flag already set. -=for apidoc Amnh||PADNAMEt_OUTER +=for apidoc Amnh||PADNAMEf_OUTER =cut */ @@ -2771,7 +2771,7 @@ Perl_newPADNAMEouter(PADNAME *outer) /* Not PadnameREFCNT(outer), because ‘outer’ may itself close over another entry. The original pad name owns the buffer. */ PadnameREFCNT(PADNAME_FROM_PV(PadnamePV(outer)))++; - PadnameFLAGS(pn) = PADNAMEt_OUTER; + PadnameFLAGS(pn) = PADNAMEf_OUTER; PadnameLEN(pn) = PadnameLEN(outer); return pn; } -- cgit v1.2.1