Hi,
I getting the this error "Free to wrong pool 1c5aa10 not 235d08 during global destruction." while executing the below program.
Please let me know solution.
Advanced thanks.
#--------------------------------------------------------------------
use Win32::OLE ;
use threads ;
sub dostuff
{
print "Stuff\n" ;
return 1 ;
}
sub startthr
{
my $thr = threads->new( \&dostuff ) ;
our $tid = $thr->tid ;
}
sub stopthr
{
our $tid ;
my $thr = threads->object( $tid ) ;
my $result = $thr->join ;
undef $thr ;
undef $tid ;
}
print "Starting thread\n" ;
startthr() ;
sleep(10) ;
print "Stopping thread\n" ;
stopthr() ;
print "A memory pool error should have occurred, and this line will probably not print.\n"
#--------------------------------------------------------------------
Regards
Rahul
