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_vtable.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_vtable.h')
| -rw-r--r-- | mg_vtable.h | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/mg_vtable.h b/mg_vtable.h index 8846262ebe..2e3ca3522f 100644 --- a/mg_vtable.h +++ b/mg_vtable.h @@ -29,7 +29,8 @@ #define PERL_MAGIC_env 'E' /* %ENV hash */ #define PERL_MAGIC_envelem 'e' /* %ENV hash element */ #define PERL_MAGIC_fm 'f' /* Formline ('compiled' format) */ -#define PERL_MAGIC_regex_global 'g' /* m//g target / study()ed string */ +#define PERL_MAGIC_study 'G' /* study()ed string */ +#define PERL_MAGIC_regex_global 'g' /* m//g target */ #define PERL_MAGIC_hints 'H' /* %^H hash */ #define PERL_MAGIC_hintselem 'h' /* %^H hash element */ #define PERL_MAGIC_isa 'I' /* @ISA array */ |