summaryrefslogtreecommitdiff
path: root/mg.h
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2014-10-02 22:38:27 -0700
committerFather Chrysostomos <sprout@cpan.org>2014-10-11 00:10:15 -0700
commitd39c26a657753cddffc8cb3dbd2aaa929b2c78fe (patch)
treee3061d7ad6cb247565e7ce16a74db2eddc5a07e7 /mg.h
parent5a36b2c090849e18b86c1759887c5bcebd598113 (diff)
downloadperl-d39c26a657753cddffc8cb3dbd2aaa929b2c78fe.tar.gz
foreach \$var
Some passing tests are still marked to-do. We need more tests still.
Diffstat (limited to 'mg.h')
-rw-r--r--mg.h1
1 files changed, 1 insertions, 0 deletions
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)