Help for this page

Select Code to Download


  1. or download this
    $ perl -Mthreads -MDevel::Peek -e"my $locked=1; my $unlocked=1; Dump($
    +unlocked); lock($locked); Dump($locked)"
    
    ...
      REFCNT = 1
      FLAGS = (PADMY,IOK,pIOK)
      IV = 1
    
  2. or download this
    /* User-level locks:
       This structure is attached (using ext magic) to any shared SV that