diff options
| author | Father Chrysostomos <sprout@cpan.org> | 2014-11-03 18:12:02 -0800 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2014-11-03 20:16:53 -0800 |
| commit | 1d5686ec7b423f88ee27ac6dfd9a6de27e442e2e (patch) | |
| tree | d3cba6d4b2a989450f15dd01a7865fe85101c5aa /regen | |
| parent | 7191ba826010be5f9fb9fcf3b1127d150479a588 (diff) | |
| download | perl-1d5686ec7b423f88ee27ac6dfd9a6de27e442e2e.tar.gz | |
[perl #123103] Allow ext magic on read-onlies
Perl cannot know whether the magic will modify the SV, so it should
give the benefit of the doubt.
Diffstat (limited to 'regen')
| -rw-r--r-- | regen/mg_vtable.pl | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/regen/mg_vtable.pl b/regen/mg_vtable.pl index 247423c305..7eda5e135a 100644 --- a/regen/mg_vtable.pl +++ b/regen/mg_vtable.pl @@ -105,7 +105,8 @@ my %mg = desc => 'Extra data for restricted hashes' }, arylen_p => { char => '@', value_magic => 1, desc => 'To move arylen out of XPVAV' }, - ext => { char => '~', desc => 'Available for use by extensions' }, + ext => { char => '~', desc => 'Available for use by extensions', + readonly_acceptable => 1 }, checkcall => { char => ']', value_magic => 1, vtable => 'checkcall', desc => 'Inlining/mutation of call to this CV'}, debugvar => { char => '*', desc => '$DB::single, signal, trace vars', |