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 /regen | |
| 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 'regen')
| -rw-r--r-- | regen/mg_vtable.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/regen/mg_vtable.pl b/regen/mg_vtable.pl index af0041dddf..799be6b8e5 100644 --- a/regen/mg_vtable.pl +++ b/regen/mg_vtable.pl @@ -42,9 +42,10 @@ my %mg = desc => '%ENV hash element' }, fm => { char => 'f', vtable => 'regdata', value_magic => 1, readonly_acceptable => 1, desc => "Formline ('compiled' format)" }, + study => { char => 'G', vtable => 'regexp', value_magic => 1, + readonly_acceptable => 1, desc => 'study()ed string' }, regex_global => { char => 'g', vtable => 'mglob', value_magic => 1, - readonly_acceptable => 1, - desc => 'm//g target / study()ed string' }, + readonly_acceptable => 1, desc => 'm//g target' }, hints => { char => 'H', vtable => 'hints', desc => '%^H hash' }, hintselem => { char => 'h', vtable => 'hintselem', desc => '%^H hash element' }, |