From 334f5eb213bd673ba861683d56b767af601b54fa Mon Sep 17 00:00:00 2001 From: "Jerry D. Hedden" Date: Tue, 6 Nov 2007 09:36:40 -0500 Subject: Bug fix for storing shared objects in shared structures From: "Jerry D. Hedden" Message-ID: <1ff86f510711061136t52a1fe62waf384c4551612181@mail.gmail.com> (core patch only) p4raw-id: //depot/perl@32241 --- perl.h | 1 + 1 file changed, 1 insertion(+) (limited to 'perl.h') diff --git a/perl.h b/perl.h index e26e475bfb..b147654abd 100644 --- a/perl.h +++ b/perl.h @@ -4036,6 +4036,7 @@ typedef int (CPERLscope(*runops_proc_t)) (pTHX); typedef void (CPERLscope(*share_proc_t)) (pTHX_ SV *sv); typedef int (CPERLscope(*thrhook_proc_t)) (pTHX); typedef OP* (CPERLscope(*PPADDR_t)[]) (pTHX); +typedef bool (CPERLscope(*destroyable_proc_t)) (pTHX_ SV *sv); /* _ (for $_) must be first in the following list (DEFSV requires it) */ #define THREADSV_NAMES "_123456789&`'+/.,\\\";^-%=|~:\001\005!@" -- cgit v1.2.1