Help for this page

Select Code to Download


  1. or download this
    # devel.pl
use Devel::Peek;
...
Dump $a;
my $b = \$a; 
Dump $a; # note the reference count for $a
  2. or download this
    c:>perl -d devel.pl

...
SV = NULL(0x0) at 0x1829ce0
  REFCNT = 2             ###<----- correct count
  FLAGS = (PADBUSY,PADMY)
  3. or download this
    c:>perl -de 1

...
SV = NULL(0x0) at 0x1aeccfc
  REFCNT = 1       ###<----- wrong reference count
  FLAGS = ()
  4. or download this
    c:>perl -de 1

...
SV = NULL(0x0) at 0x1aecc18
  REFCNT = 2        ###<--------correct here
  FLAGS = ()