On Tue, 15 Jul 2008 05:01:14 +1000 "Ivan Wills" <[EMAIL PROTECTED]> wrote:
> I would suggest a two modules though say Devel::Refcount Is this Devel::Refcount really necessary, given how easy it is to build using B::SV->REFCNT ? Plus, the more levels of code, the more difficult it is to ensure the count is correct. Consider sub is_1ref { my ( $object, $name ) = @_; my $count = refcount($object); ... } vs sub is_1ref { my ( undef, $name ) = @_; my $count = refcount($_[0]); ... } The $object in the first code creates a second reference, so you have to subtract 1, whereas the @_ array seems special and doesn't have that side-effect. -- Paul "LeoNerd" Evans [EMAIL PROTECTED] ICQ# 4135350 | Registered Linux# 179460 http://www.leonerd.org.uk/
signature.asc
Description: PGP signature