On Mon, 14 Jul 2008 20:59:34 +0100
David Cantrell <[EMAIL PROTECTED]> wrote:

> Can't you use Devel::Peek to get the refcount?

I use B:

  use B qw( svref_2object );

  my $SV = svref_2object($ref);
  my $refcount = $SV->REFCNT;

-- 
Paul "LeoNerd" Evans

[EMAIL PROTECTED]
ICQ# 4135350       |  Registered Linux# 179460
http://www.leonerd.org.uk/

Attachment: signature.asc
Description: PGP signature

Reply via email to