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 /intrpvar.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 'intrpvar.h')
| -rw-r--r-- | intrpvar.h | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/intrpvar.h b/intrpvar.h index 5d583f06f0..373d181792 100644 --- a/intrpvar.h +++ b/intrpvar.h @@ -669,6 +669,9 @@ PERLVARI(Islabs, I32**, NULL) /* Array of slabs that have been allocated */ PERLVARI(Islab_count, U32, 0) /* Size of the array */ #endif +/* Can shared object be destroyed */ +PERLVARI(Idestroyhook, destroyable_proc_t, MEMBER_TO_FPTR(Perl_sv_destroyable)) + /* If you are adding a U8 or U16, check to see if there are 'Space' comments * above on where there are gaps which currently will be structure padding. */ |