Help for this page

Select Code to Download


  1. or download this
    package Foo;
use threads;
...
    $BAR{foo} = $foo;
    weaken($BAR{foo});
}
  2. or download this
    Test 1 (using two refcounts)
Init
...
Destroy
Test 4 (with weaken)
Init