- or download this
use threads();
{
...
foo is quux
main: coderef = CODE(0x8060674)
foo is bar
- or download this
use threads();
use threads::shared;
{
...
foo is quux
main: coderef = CODE(0x80fe448)
foo is quux
- or download this
$ perl thrcl.pl
Invalid CODE attribute: shared at thrcl.pl line 5
BEGIN failed--compilation aborted at thrcl.pl line 5.