source code list:
#---------------------------------------------------------------------------
use Thread::Signal;
mkdir( "lockdir", 0755 );
$SIG{INT} = $SIG{QUIT} =
$SIG{PIPE} = $SIG{TERM} = $SIG{KILL}= \&unlock;
sub unlock
{
rmdir( $lockdir );
}
kill( 'INT', $$ );
...
#----------------------------------------------------------------------------
but it occurs complilation error,such as:
This perl was built for "ithreads", which currently does not support Thread.pm.
Run "perldoc Thread" for more information at D:/Perl/lib/Thread.pm line 216.
how could i do?