diff options
author | Nicholas Clark <nick@ccl4.org> | 2011-06-13 16:24:23 +0200 |
---|---|---|
committer | Nicholas Clark <nick@ccl4.org> | 2011-07-01 14:05:40 +0200 |
commit | 0177730e7e0c099d1250571eb39367a76e2d91eb (patch) | |
tree | 18f9b6488a03824a8a0217507cec39d9972acaba /mg_raw.h | |
parent | 637174112f90e2e782037f7c706f86617e7df263 (diff) | |
download | perl-0177730e7e0c099d1250571eb39367a76e2d91eb.tar.gz |
Split out study magic from pos magic.
study uses magic to call SvSCREAM_off() if the scalar is modified. Allocate it
its own magic type ('G' for now - pos magic is 'g'). Share the same "set"
routine and vtable as regexp/bm/fm (setregxp and vtbl_regexp).
Diffstat (limited to 'mg_raw.h')
-rw-r--r-- | mg_raw.h | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -38,8 +38,10 @@ "/* envelem 'e' %ENV hash element */" }, { 'f', "want_vtbl_regdata | PERL_MAGIC_READONLY_ACCEPTABLE | PERL_MAGIC_VALUE_MAGIC", "/* fm 'f' Formline ('compiled' format) */" }, + { 'G', "want_vtbl_regexp | PERL_MAGIC_READONLY_ACCEPTABLE | PERL_MAGIC_VALUE_MAGIC", + "/* study 'G' study()ed string */" }, { 'g', "want_vtbl_mglob | PERL_MAGIC_READONLY_ACCEPTABLE | PERL_MAGIC_VALUE_MAGIC", - "/* regex_global 'g' m//g target / study()ed string */" }, + "/* regex_global 'g' m//g target */" }, { 'H', "want_vtbl_hints", "/* hints 'H' %^H hash */" }, { 'h', "want_vtbl_hintselem", |