[perl #122445] use magic on $DB::single etc to avoid overload issues

[perl5.git] / mg_names.c

diff --git a/mg_names.c b/mg_names.c
index 73dc3f9..52eed71 100644 (file)
--- a/mg_names.c
+++ b/mg_names.c
@@ -10,6 +10,7 @@
        { PERL_MAGIC_arylen,         "arylen(#)" },
        { PERL_MAGIC_rhash,          "rhash(%)" },
        { PERL_MAGIC_proto,          "proto(&)" },
        { PERL_MAGIC_arylen,         "arylen(#)" },
        { PERL_MAGIC_rhash,          "rhash(%)" },
        { PERL_MAGIC_proto,          "proto(&)" },

+       { PERL_MAGIC_debugvar,       "debugvar(*)" },

        { PERL_MAGIC_pos,            "pos(.)" },
        { PERL_MAGIC_symtab,         "symtab(:)" },
        { PERL_MAGIC_backref,        "backref(<)" },
        { PERL_MAGIC_pos,            "pos(.)" },
        { PERL_MAGIC_symtab,         "symtab(:)" },
        { PERL_MAGIC_backref,        "backref(<)" },