RE: Intresting Logic Problem

> When I use Thread::Exit
> 
> I get this error message 
> 
> Attempt to free non-existent shared string 'D^CSOH', Perl interpreter:
> 0x5f69604 during global destruction.  Free to wrong pool 5f64de0 during
> global destruction...
> 
> The instruction at "0x28085c14" shared memory at "0x000000000".  The
> memory could not be "written".

1.  Upgrade to the lastest version of ActivePerl.
2.  Upgrade to the lastest version of threads and threads::shared from
CPAN.
3.  Don't use Thread::Exit - just ->join() or ->detach() your threads.

> while (1) {
> 
>     eval { mkpath([@Local_Directories], 1, 0777) };
>     if ($@) {
>         print "Could not create: $@";
>     }
>     print "\n[INFO:: [MAINTHREAD] :: QUEUE MONITOR -> NO FILES TO
> PROCESS]\n\n";
> 
>     if (!($dbh = DBI->connect('dbi:ODBC:$db, '$user', '$pass'))) {
>         print "[WARNING :: [MAINTHREAD] :: DATABASE CURRENTLY
> UNAVAILABLE]\n";
>     } else {
>         opendir (QUEUE, $Local_Directories[1]) or report ("Unable to
> open $!\n");
>  
>         while (defined (my $file = readdir (QUEUE)) ) {
>             if ($file =~ m/^\d{5}/) {
>                 $thr = threads->create(\&prepPackage,$file);
> 			$thr->join;
>             }
>         }
>         closedir(QUEUE);
>     }
>     sleep(900);
> }
> 
> 
> After it ends the execution I simply call "exit(0)";  This is when I get
> the error message.  If I don't JOIN the threads, it doesn't give me that
> error, but the thread doesn't exit and therefore my count goes up.  

DBI is not thread-safe and may be responsible for the error message.