diff options
author | Yves Orton <demerphq@gmail.com> | 2022-12-18 18:42:34 +0100 |
---|---|---|
committer | Yves Orton <demerphq@gmail.com> | 2022-12-22 15:41:12 +0100 |
commit | 332af2278b8db03a0735d24a17bbaae7f7e20112 (patch) | |
tree | 18170096c3ea3401104a2cacb76ddcad52b11151 /perl.h | |
parent | 81620fbedd5f5cb87f240d7809dc669cd60d0139 (diff) | |
download | perl-332af2278b8db03a0735d24a17bbaae7f7e20112.tar.gz |
sv.c - add support for HvNAMEf and HvNAMEf_QUOTEDPREFIX formats
They are similar to SVf and SVf_QUOTEDPREFIX but take an HV * argument
and use HvNAME() and related macros to extract the string. This is
helpful as it makes constructing error messages from a stash (HV *)
easier. It is the callers responsibility to ensure that the HV is
actually a stash.
Diffstat (limited to 'perl.h')
-rw-r--r-- | perl.h | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -4147,6 +4147,8 @@ out there, Solaris being the most prominent. #define PNf UTF8f #define PNfARG(pn) (int)1, (UV)PadnameLEN(pn), (void *)PadnamePV(pn) +#define HvNAMEf "6p" +#define HvNAMEf_QUOTEDPREFIX "10p" #ifdef PERL_CORE /* not used; but needed for backward compatibility with XS code? - RMB |