diff options
| author | Jerry D. Hedden <jdhedden@cpan.org> | 2007-11-06 09:36:40 -0500 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2007-11-08 10:31:55 +0000 |
| commit | eba1666137b7e1350d666a934a5e99ced3f50088 (patch) | |
| tree | 51ae63f47a96f526e721b4597eeca2c847f77f11 /sv.h | |
| parent | f5b5f37776801bcd4e0e224cce08c5281487334a (diff) | |
| download | perl-eba1666137b7e1350d666a934a5e99ced3f50088.tar.gz | |
Bug fix for storing shared objects in shared structures
From: "Jerry D. Hedden" <jdhedden@cpan.org>
Message-ID: <1ff86f510711061136t52a1fe62waf384c4551612181@mail.gmail.com>
(core patch only)
p4raw-id: //depot/perl@32241
Diffstat (limited to 'sv.h')
| -rw-r--r-- | sv.h | 1 |
1 files changed, 1 insertions, 0 deletions
@@ -2008,6 +2008,7 @@ Returns a pointer to the character buffer. #define SvSHARE(sv) CALL_FPTR(PL_sharehook)(aTHX_ sv) #define SvLOCK(sv) CALL_FPTR(PL_lockhook)(aTHX_ sv) #define SvUNLOCK(sv) CALL_FPTR(PL_unlockhook)(aTHX_ sv) +#define SvDESTROYABLE(sv) CALL_FPTR(PL_destroyhook)(aTHX_ sv) #define SvGETMAGIC(x) STMT_START { if (SvGMAGICAL(x)) mg_get(x); } STMT_END #define SvSETMAGIC(x) STMT_START { if (SvSMAGICAL(x)) mg_set(x); } STMT_END |