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_names.c | |
| 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_names.c')
| -rw-r--r-- | mg_names.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/mg_names.c b/mg_names.c index ff73b9e38e..43b1945f2d 100644 --- a/mg_names.c +++ b/mg_names.c @@ -22,6 +22,7 @@ { PERL_MAGIC_env, "env(E)" }, { PERL_MAGIC_envelem, "envelem(e)" }, { PERL_MAGIC_fm, "fm(f)" }, + { PERL_MAGIC_study, "study(G)" }, { PERL_MAGIC_regex_global, "regex_global(g)" }, { PERL_MAGIC_hints, "hints(H)" }, { PERL_MAGIC_hintselem, "hintselem(h)" }, |