Add lvref magic type

I just couldn’t resist using the backslash for the character, even
though I had to tweak mg_vtable.pl to make it work.

1 files changed, 8 insertions, 0 deletions

diff --git a/mg.c b/mg.c
index 9653c707e8..e271f883b2 100644
--- a/mg.c
+++ b/mg.c
@@ -2462,6 +2462,14 @@ Perl_magic_setutf8(pTHX_ SV *sv, MAGIC *mg)
 }
 
 int
+Perl_magic_setlvref(pTHX_ SV *sv, MAGIC *mg)
+{
+    PERL_ARGS_ASSERT_MAGIC_SETLVREF;
+    Perl_croak(aTHX_ "Unimplemented");
+    return 0;
+}
+
+int
 Perl_magic_set(pTHX_ SV *sv, MAGIC *mg)
 {
 #ifdef USE_ITHREADS