From d39c26a657753cddffc8cb3dbd2aaa929b2c78fe Mon Sep 17 00:00:00 2001 From: Father Chrysostomos Date: Thu, 2 Oct 2014 22:38:27 -0700 Subject: foreach \$var Some passing tests are still marked to-do. We need more tests still. --- mg.h | 1 + 1 file changed, 1 insertion(+) (limited to 'mg.h') diff --git a/mg.h b/mg.h index 0f2fa292fb..3aa2401faa 100644 --- a/mg.h +++ b/mg.h @@ -40,6 +40,7 @@ struct magic { #define MGf_DUP 0x10 /* has an svt_dup MGVTBL entry */ #define MGf_LOCAL 0x20 /* has an svt_local MGVTBL entry */ #define MGf_BYTES 0x40 /* PERL_MAGIC_regex_global only */ +#define MGf_PERSIST 0x80 /* PERL_MAGIC_lvref only */ #define MgTAINTEDDIR(mg) (mg->mg_flags & MGf_TAINTEDDIR) #define MgTAINTEDDIR_on(mg) (mg->mg_flags |= MGf_TAINTEDDIR) -- cgit v1.2.1