dump.c: When dumping SVt_PVOBJ, show field names as well

This way, instead of:

    Field No. 0
    SV = PV(0x5638ccf57fb0) at 0x5638ccf7b9c0
      REFCNT = 1
      ...

You get:

    Field No. 0 ($name)
    SV = PV(0x5638ccf57fb0) at 0x5638ccf7b9c0
      REFCNT = 1

Author: wolfsage

dump.c

@@ -2607,13 +2607,17 @@ Perl_do_sv_dump(pTHX_ I32 level, PerlIO *file, SV *sv, I32 nest, I32 maxnest, bo
         if (nest < maxnest && ObjectFIELDS(sv)) {
             SSize_t count;
             SV **svp = ObjectFIELDS(sv);
+            PADNAME **pname = PadnamelistARRAY(HvAUX(SvSTASH(sv))->xhv_class_fields);
             for (count = 0;
                  count <= ObjectMAXFIELD(sv) && count < maxnest;
                  count++, svp++)
             {
                 SV *const field = *svp;
-                Perl_dump_indent(aTHX_ level + 1, file, "Field No. %" IVdf "\n",
-                        (IV)count);
+                PADNAME *pn = pname[count];
+
+                Perl_dump_indent(aTHX_ level + 1, file, "Field No. %" IVdf " (%s)\n",
+                        (IV)count, PadnamePV(pn));
+
                 do_sv_dump(level+1, file, field, nest+1, maxnest, dumpops, pvlim);
             }
         }