diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-05-21 12:31:52 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-05-21 12:31:52 +0000 |
| commit | bfcb351493b9793586f4b514100d4f902a85f4fd (patch) | |
| tree | f1b02cb4c98cea12a34ec920125c266c8f49086e /ext/Data | |
| parent | ca732855658630b07dee4aa9ea6ae952226bd828 (diff) | |
| download | perl-bfcb351493b9793586f4b514100d4f902a85f4fd.tar.gz | |
Move hv_name, hv_eiter and hv_riter into a new aux structure.
Provide (more efficient) _get and _set macros.
Adjust the core to use them.
p4raw-id: //depot/perl@24526
Diffstat (limited to 'ext/Data')
| -rw-r--r-- | ext/Data/Dumper/Dumper.xs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/ext/Data/Dumper/Dumper.xs b/ext/Data/Dumper/Dumper.xs index ee1bc14a65..3f06b7b8f0 100644 --- a/ext/Data/Dumper/Dumper.xs +++ b/ext/Data/Dumper/Dumper.xs @@ -14,6 +14,10 @@ static I32 DD_dump (pTHX_ SV *val, char *name, STRLEN namelen, SV *retval, I32 purity, I32 deepcopy, I32 quotekeys, SV *bless, I32 maxdepth, SV *sortkeys); +#ifndef HvNAME_get +#define HvNAME_get HvNAME +#endif + #if PERL_VERSION <= 6 /* Perl 5.6 and earlier */ # ifdef EBCDIC @@ -281,7 +285,7 @@ DD_dump(pTHX_ SV *val, char *name, STRLEN namelen, SV *retval, HV *seenhv, (void) sprintf(id, "0x%"UVxf, PTR2UV(ival)); idlen = strlen(id); if (SvOBJECT(ival)) - realpack = HvNAME(SvSTASH(ival)); + realpack = HvNAME_get(SvSTASH(ival)); else realpack = Nullch; |