diff options
| author | Nicholas Clark <nick@ccl4.org> | 2005-05-21 09:29:18 +0000 |
|---|---|---|
| committer | Nicholas Clark <nick@ccl4.org> | 2005-05-21 09:29:18 +0000 |
| commit | ca732855658630b07dee4aa9ea6ae952226bd828 (patch) | |
| tree | 19a2e3a9bd1dad4b743cbb8283404efd55a83e39 /ext/Storable | |
| parent | 4325052d2625a06294068527f0d65e6f637a59ee (diff) | |
| download | perl-ca732855658630b07dee4aa9ea6ae952226bd828.tar.gz | |
Move placeholders into a new rhash magic type.
p4raw-id: //depot/perl@24525
Diffstat (limited to 'ext/Storable')
| -rw-r--r-- | ext/Storable/Storable.xs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/ext/Storable/Storable.xs b/ext/Storable/Storable.xs index 87f94e1aaa..68d8e26ead 100644 --- a/ext/Storable/Storable.xs +++ b/ext/Storable/Storable.xs @@ -107,6 +107,10 @@ typedef double NV; /* Older perls lack the NV type */ #define dVAR dNOOP #endif +#ifndef HvPLACEHOLDERS_get +# define HvPLACEHOLDERS_get HvPLACEHOLDERS +#endif + #ifdef DEBUGME #ifndef DASSERT @@ -2303,7 +2307,7 @@ static int store_hash(pTHX_ stcxt_t *cxt, HV *hv) for (i = 0; i < len; i++) { #ifdef HAS_RESTRICTED_HASHES - int placeholders = (int)HvPLACEHOLDERS(hv); + int placeholders = (int)HvPLACEHOLDERS_get(hv); #endif unsigned char flags = 0; char *keyval; |