Previous filetest.t failure turned out to be a stale foo/ directory left over from apparently from other troubleshooting. I will need to do a complete test run again to be totally sure that one of the tests is not leaving something behind.

t/op/filetest.........................................FAILED at test 10
ext/B/t/concise-xs....................................FAILED at test 15
ext/Devel/Peek/t/Peek.................................FAILED at test 21
Failed 3 test scripts out of 1088, 99.72% okay.


EAGLE> mcr [-]ndbgperl "-T" "-I[-.lib]" [-.ext.devel.peek.t]peek.t
1..23
ok 1
...
ok 20
got:
[
SV = PVMG(0x306e80) at 0x31cab0
  REFCNT = 1
  FLAGS = (SMG,RMG,IOK,POK,pIOK,pPOK)
  IV = 0
  NV = 0
  PV = 0x3e6d90 "0"\0
  CUR = 1
  LEN = 4
  MAGIC = 0x3dc898
    MG_VIRTUAL = &PL_vtbl_envelem
    MG_TYPE = PERL_MAGIC_envelem(e)
    MG_FLAGS = 0x01
      TAINTEDDIR
    MG_LEN = -2
    MG_PTR = 0x3917f0 => HEf_SVKEY
    SV = PV(0x2ddc98) at 0x3917f0
      REFCNT = 2
      FLAGS = (TEMP,POK,FAKE,READONLY,pPOK)
      PV = 0x3161a4 "PATH"
      CUR = 4
      LEN = 0

]
expected:
[
(?:ALLOCATED at .*?
)?SV = PVMG\(0x[[:xdigit:]]+\) at 0x[[:xdigit:]]+
  REFCNT = 1
  FLAGS = \(GMG,SMG,RMG,pIOK,pPOK\)
  IV = 0
  NV = 0
  PV = 0x[[:xdigit:]]+ "0"\\0
  CUR = 1
  LEN = \d+
  MAGIC = 0x[[:xdigit:]]+
    MG_VIRTUAL = &PL_vtbl_envelem
    MG_TYPE = PERL_MAGIC_envelem\(e\)
(?:    MG_FLAGS = 0x01
      TAINTEDDIR
)?    MG_LEN = -?\d+
    MG_PTR = 0x[[:xdigit:]]+ (?:"(?i:PATH)"|=> HEf_SVKEY
(?:    ALLOCATED at .*?
)?    SV = PV(?:IV)?\(0x[[:xdigit:]]+\) at 0x[[:xdigit:]]+
      REFCNT = \d+
      FLAGS = \(TEMP,POK,(?:FAKE,READONLY,)?pPOK\)
(?:      IV = 0
)?      PV = 0x[[:xdigit:]]+ "(?i:PATH)"(?:\\0)?
      CUR = \d+
      LEN = \d+)
  MAGIC = 0x[[:xdigit:]]+
    MG_VIRTUAL = &PL_vtbl_taint
    MG_TYPE = PERL_MAGIC_taint\(t\)
]
not ok 21



EAGLE> mcr [-]ndbgperl "-I[-.lib]" [-.ext.b.t]concise-xs.t
1..1573
ok 1 - require B::Concise;
...
ok 14 - XS sub:  B::sv_no
not ok 15 - XS sub:      B::sub_generation
#   Failed test 'XS sub:         B::sub_generation'
#   in [-.ext.b.t]concise-xs.t at line 319.
#                   'B::sub_generation:
# err: unknown function (B::sub_generation)
# '
#     doesn't match '(?-xism: is XS code)'
ok 16 - perl sub:        B::savesym

-John
[EMAIL PROTECTED]
Personal Opinion Only

Reply via email to