search

garu / Clone

recursively copy Perl datatypes
7 stars 10 forks source link

t/07magic.t is chatty. #33

Open toddr opened 3 years ago

toddr commented 3 years ago

Seen in a make test run. I thought something was broken initially.

t/07magic.t ...... 1/10 SV = PVMG(0x150f510) at 0x1361a28
  REFCNT = 1
  FLAGS = (SMG,POK,pPOK,UTF8)
  IV = 0
  NV = 0
  PV = 0x1443290 "a\r\n"\0 [UTF8 "a\r\n"]
  CUR = 3
  LEN = 10
  MAGIC = 0x1491cf0
    MG_VIRTUAL = &PL_vtbl_utf8
    MG_TYPE = PERL_MAGIC_utf8(w)
    MG_LEN = -1
    MG_PTR = 0x140ff40
       0: 2 -> 2
       1: 0 -> 0
SV = PVMG(0x150f570) at 0x14e5758
  REFCNT = 1
  FLAGS = (SMG,POK,pPOK,UTF8)
  IV = 0
  NV = 0
  PV = 0x1490f70 "a\r\n"\0 [UTF8 "a\r\n"]
  CUR = 3
  LEN = 10
  MAGIC = 0xd81d50
    MG_VIRTUAL = &PL_vtbl_utf8
    MG_TYPE = PERL_MAGIC_utf8(w)
    MG_LEN = -1
    MG_PTR = 0x1459110
       0: 2 -> 2
       1: 0 -> 0
t/07magic.t ...... ok