diff options
author | Leon Timmermans <fawaka@gmail.com> | 2021-01-12 23:47:55 +0100 |
---|---|---|
committer | Leon Timmermans <fawaka@gmail.com> | 2021-06-02 01:38:31 +0200 |
commit | 55f5e7656892bb5ab03f4f19defe887167db7236 (patch) | |
tree | cae18826d99951815bc6cc949fad48de091b9c13 /regen | |
parent | 307a07c2d5f032a3d666d0548847166330d702b4 (diff) | |
download | perl-55f5e7656892bb5ab03f4f19defe887167db7236.tar.gz |
Call magic on all elements on %SIG delocalization
Diffstat (limited to 'regen')
-rw-r--r-- | regen/mg_vtable.pl | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/regen/mg_vtable.pl b/regen/mg_vtable.pl index ebd3413082..0dd27301b5 100644 --- a/regen/mg_vtable.pl +++ b/regen/mg_vtable.pl @@ -168,7 +168,8 @@ my %mg = desc => 'Tied scalar or handle' }, qr => { char => 'r', vtable => 'regexp', value_magic => 1, readonly_acceptable => 1, desc => 'Precompiled qr// regex' }, - sig => { char => 'S', desc => '%SIG hash' }, + sig => { char => 'S', vtable => 'sig', + desc => '%SIG hash' }, sigelem => { char => 's', vtable => 'sigelem', desc => '%SIG hash element' }, taint => { char => 't', vtable => 'taint', value_magic => 1, @@ -251,6 +252,7 @@ my %sig = 'sv' => {get => 'get', set => 'set'}, 'env' => {set => 'set_all_env', clear => 'clear_all_env'}, 'envelem' => {set => 'setenv', clear => 'clearenv'}, + 'sig' => { set => 'setsigall' }, 'sigelem' => {get => 'getsig', set => 'setsig', clear => 'clearsig', cond => '#ifndef PERL_MICRO'}, 'pack' => {len => 'sizepack', clear => 'wipepack'}, |