diff options
author | Vincent Pit <perl@profvince.com> | 2009-07-25 18:19:51 +0200 |
---|---|---|
committer | Vincent Pit <perl@profvince.com> | 2009-07-25 23:26:07 +0200 |
commit | af097752b446f87855473ee776be3a2d7b735986 (patch) | |
tree | 93c17080295c2d221724ad333d1280f2fc1f698d /scope.h | |
parent | 75d34a09f38381e487470136b539a7fba0f02b44 (diff) | |
download | perl-af097752b446f87855473ee776be3a2d7b735986.tar.gz |
Introduce save_hdelete() and SAVEHDELETE()
save_hdelete() is just like save_delete() except that it takes an SV instead of char buffer.
Diffstat (limited to 'scope.h')
-rw-r--r-- | scope.h | 2 |
1 files changed, 2 insertions, 0 deletions
@@ -145,6 +145,8 @@ Closing bracket on a callback. See C<ENTER> and L<perlcall>. #define SAVESETSVFLAGS(sv,mask,val) save_set_svflags(sv,mask,val) #define SAVEDELETE(h,k,l) \ save_delete(MUTABLE_HV(h), (char*)(k), (I32)(l)) +#define SAVEHDELETE(h,s) \ + save_hdelete(MUTABLE_HV(h), (s)) #define SAVEADELETE(a,k) \ save_adelete(MUTABLE_AV(a), (I32)(k)) #define SAVEDESTRUCTOR(f,p) \ |