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