Subject: | t/02get-and-set.t fails 2nd test due to isa() weirdness |
The second test compares an empty Hash::AsObject object to an empty anonymous hash.
Unfortunately, the line
C<return eval { ref $thing && $thing->isa('UNIVERSAL') } ? 1 : 0;>
uses Hash::AsObject::isa rather than UNIVERSAL::isa, as it clearly hasn't read the docs for Hash::AsObject.
As a result, Hash::AsObject::isa causes the object to no longer be empty - it now contains an entry under 'isa'
(Like so:
DB<19> x $this
0 Hash::AsObject=HASH(0x18d51a4)
'isa' => 'UNIVERSAL'
)
which it then compares to the empty anonymous hash ref
(
0 HASH(0x1923c14)
empty hash
)
This clearly will not compare positively.
I'd try to work out a patch, but I'm not quite sure how you would like this to be resolved. :-/
FYI,
This is perl, v5.8.7 built for darwin-2level
8.2.0 Darwin Kernel Version 8.2.0: Fri Jun 24 17:46:54 PDT 2005; root:xnu-792.2.4.obj~3/RELEASE_PPC Power Macintosh powerpc