X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=dump.c;h=c891b2fc2af2773bd6c1fc3e8f7216e313af4d7e;hb=a0f20b650099024032f274cd75500979583e0eb7;hp=e7f5a1df01af17f58ccbbbf1876853eb154b34a3;hpb=5115136b5ada1a3245a69b04d93664e445e85eb1;p=p5sagit%2Fp5-mst-13.2.git diff --git a/dump.c b/dump.c index e7f5a1d..c891b2f 100644 --- a/dump.c +++ b/dump.c @@ -1261,6 +1261,7 @@ Perl_do_magic_dump(pTHX_ I32 level, PerlIO *file, const MAGIC *mg, I32 nest, I32 else if (v == &PL_vtbl_utf8) s = "utf8"; else if (v == &PL_vtbl_arylen_p) s = "arylen_p"; else if (v == &PL_vtbl_hintselem) s = "hintselem"; + else if (v == &PL_vtbl_hints) s = "hints"; else s = NULL; if (s) Perl_dump_indent(aTHX_ level, file, " MG_VIRTUAL = &PL_vtbl_%s\n", s);