Select Code to Download

#This is the SWIG generated module to my C library
...
#This line is not printed as $cb_done never becomes 1 
#in the main of the perl script
print "CB was invoked : $cb_done\n";

use threads;
use threads::shared;
...
use MyModule;
#shared scalar
$cb_done : shared = 0;