assertion failure in sv_dump()

[tonycoz]

I'm not sure whether you expect this or not, and issues aren't enabled:

$ ./perl -Ilib -Mfeature=class -MDevel::Peek -e 'class Foo { field $x } Dump(Foo->new)'
class is experimental at -e line 1.
field is experimental at -e line 1.
SV = IV(0x55897018a5f0) at 0x55897018a600
  REFCNT = 1
  FLAGS = (TEMP,ROK)
  RV = 0x55897018a5e8
  SV = PVOBJ(0x5589701c26b0) at 0x55897018a5e8
    REFCNT = 1
    FLAGS = (OBJECT)
perl: dump.c:1962: Perl_do_sv_dump: Assertion `PL_valid_types_IVX[SvTYPE(_svivx) & SVt_MASK]' failed.
Aborted

[leonerd]

Yeah; the entire dump.c doesn't have any handling of SVt_PVOBJ yet. I should add that.

[leonerd]

Fixed.

$ git show
commit 92a74ff259409916d538264df30a86512f5482d0 (HEAD -> feature-class)
Author: Paul Evans <[email protected]>
Date:   Wed Aug 17 15:00:28 2022 +0100

    Ensure dump.c handles SVt_PVOBJ correctly
    
    Fixes https://github.com/leonerd/perl5/discussions/14
...

$ ./perl -Ilib -Mfeature=class -MDevel::Peek -e 'class Foo { field $x; ADJUST { $x = 123 } } Dump(Foo->new)'
class is experimental at -e line 1.
field is experimental at -e line 1.
ADJUST is experimental at -e line 1.
SV = IV(0x55a0d92dc978) at 0x55a0d92dc988
  REFCNT = 1
  FLAGS = (ROK)
  RV = 0x55a0d92dc808
  SV = PVOBJ(0x55a0d932bb78) at 0x55a0d92dc808
    REFCNT = 1
    FLAGS = (OBJECT)
    STASH = 0x55a0d9321030      "Foo"
    MAXFIELD = 0
    FIELDS = 0x55a0d92f58c8
    Field No. 0
    SV = IV(0x55a0d92dca20) at 0x55a0d92dca30
      REFCNT = 1
      FLAGS = (IOK,pIOK)
      IV = 123