Front page | perl.perl5.porters |
Postings from October 2011
On Wed Oct 19 20:23:48 2011, andreas.koenig.7os6VVqR@franz.ak.mind.de wrote:
> >>>>> On Wed, 19 Oct 2011 12:50:44 -0700, (Andreas J. Koenig) (via RT)
> <perlbug-followup@perl.org> said:
>
> > # <URL: https://rt.perl.org:443/rt3/Ticket/Display.html?id=101738
> >
>
> > t/03_myclass_dump.t ............................... 1/? Can't
> locate object method "hello" via package "MyClass::Plugin::Hello"
> at /tmp/loop_over_bdir-V5zj5T/Class-Component-0.17-
> 52mgir/blib/lib/Class/Component.pm line 270.
>
> Also broken was SPROUT/JE-0.055.tar.gz. Diagnostic there is
>
> t/bind_class.t ........................... 1/203 Can't locate object
> method "to_primitive" via package "____" at t/bind_class.t line
> 948.
> # Looks like you planned 203 tests but ran 168.
> # Looks like your test exited with 255 just after 168.
> t/bind_class.t ........................... Dubious, test returned
> 255 (wstat 65280, 0xff00)
> Failed 35/203 subtests
Thank you. Unsurprisingly, a JE failure made it easy for me to find
quickly. I’ve found the problem and am trying to write a better test
case before I fix sv_sethek to set the flags properly:
$ ./perl -Ilib -e 'use Devel::Peek; sub foo { Dump ref shift }
foo(qr//); foo(bless[],chr 256), foo(qr//); '
SV = PV(0x801038) at 0x823280
REFCNT = 1
FLAGS = (PADTMP,POK,FAKE,READONLY,pPOK)
PV = 0x303744 "Regexp"
CUR = 6
LEN = 0
SV = PV(0x801038) at 0x823280
REFCNT = 1
FLAGS = (PADTMP,POK,FAKE,READONLY,pPOK,UTF8)
PV = 0x301424 "\304\200" [UTF8 "\x{100}"]
CUR = 2
LEN = 0
SV = PV(0x801038) at 0x823280
REFCNT = 1
FLAGS = (PADTMP,POK,FAKE,READONLY,pPOK,UTF8)
PV = 0x303744 "Regexp" [UTF8 "Regexp"]
CUR = 6
LEN = 0
Thread Previous
|
Thread Next