summaryrefslogtreecommitdiff
path: root/mg_raw.h
diff options
context:
space:
mode:
authorFather Chrysostomos <sprout@cpan.org>2014-11-03 18:12:02 -0800
committerFather Chrysostomos <sprout@cpan.org>2014-11-03 20:16:53 -0800
commit1d5686ec7b423f88ee27ac6dfd9a6de27e442e2e (patch)
treed3cba6d4b2a989450f15dd01a7865fe85101c5aa /mg_raw.h
parent7191ba826010be5f9fb9fcf3b1127d150479a588 (diff)
downloadperl-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 'mg_raw.h')
-rw-r--r--mg_raw.h2
1 files changed, 1 insertions, 1 deletions
diff --git a/mg_raw.h b/mg_raw.h
index 3095d584fe..fd4a826dd2 100644
--- a/mg_raw.h
+++ b/mg_raw.h
@@ -86,7 +86,7 @@
"/* lvref '\\' Lvalue reference constructor */" },
{ ']', "want_vtbl_checkcall | PERL_MAGIC_VALUE_MAGIC",
"/* checkcall ']' Inlining/mutation of call to this CV */" },
- { '~', "magic_vtable_max",
+ { '~', "magic_vtable_max | PERL_MAGIC_READONLY_ACCEPTABLE",
"/* ext '~' Available for use by extensions */" },
/* ex: set ro: */