From a5063e7cd8fef802efd25ffe9df2c3748f4254f6 Mon Sep 17 00:00:00 2001 From: Dave Mitchell Date: Mon, 2 Jan 2006 12:09:37 +0000 Subject: add svt_local slot to magic vtable, and fix local $shared p4raw-id: //depot/perl@26569 --- mg.h | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'mg.h') diff --git a/mg.h b/mg.h index 8f5644bff6..82c88552bf 100644 --- a/mg.h +++ b/mg.h @@ -20,6 +20,7 @@ struct mgvtbl { int (CPERLscope(*svt_copy)) (pTHX_ SV *sv, MAGIC* mg, SV *nsv, const char *name, int namlen); int (CPERLscope(*svt_dup)) (pTHX_ MAGIC *mg, CLONE_PARAMS *param); + int (CPERLscope(*svt_local))(pTHX_ SV *nsv, MAGIC *mg); }; #endif @@ -38,8 +39,9 @@ struct magic { #define MGf_MINMATCH 1 /* PERL_MAGIC_regex_global only */ #define MGf_REFCOUNTED 2 #define MGf_GSKIP 4 -#define MGf_COPY 8 -#define MGf_DUP 16 +#define MGf_COPY 8 /* has an svt_copy MGVTBL entry */ +#define MGf_DUP 0x10 /* has an svt_dup MGVTBL entry */ +#define MGf_LOCAL 0x20 /* has an svt_local MGVTBL entry */ #define MgTAINTEDDIR(mg) (mg->mg_flags & MGf_TAINTEDDIR) #define MgTAINTEDDIR_on(mg) (mg->mg_flags |= MGf_TAINTEDDIR) -- cgit v1.2.1