Devel::Peek object dump result

I get

RV(0x8199c48) at 0x8163304
  REFCNT = 1
  FLAGS = (PADBUSY,PADMY,ROK)
  RV = 0x814cd74
  SV = PVHV(0x8167888) at 0x814cd74
    REFCNT = 2
    FLAGS = (RMG,SHAREKEYS)
    IV = 0
    NV = 0
    MAGIC = 0x826f6b0
      MG_VIRTUAL = &PL_vtbl_pack
      MG_TYPE = PERL_MAGIC_tied(P)
      MG_FLAGS = 0x02
        REFCOUNTED
      MG_OBJ = 0x814cc6c
      SV = RV(0x8199c34) at 0x814cc6c
        REFCNT = 2
        FLAGS = (ROK)
        RV = 0x814cd98
        SV = PVMG(0x81ae900) at 0x814cd98
          REFCNT = 1
          FLAGS = (OBJECT,IOK,pIOK)
          IV = 135647352
          NV = 0
          PV = 0
          STASH = 0x8267a94     "TiedXS"
    ARRAY = 0x0
    KEYS = 0
    FILL = 0
    MAX = 7
    RITER = -1
    EITER = 0x0
[download]

Ron Steinke rsteinke@w-link.net

Comment on Devel::Peek object dump result Download Code

Replies are listed 'Best First'.
Re: Devel::Peek object dump result by rsteinke (Scribe) on Aug 04, 2004 at 15:51 UTC
Ah, I see now. My mistake. The test should have been `ok(tied %$obj)` [download] I was testing the hash reference for being tied, instead of the actual hash itself. It works now. Thanks! Ron Steinke rsteinke@w-link.net	[reply] [d/l]