When compiled, the stub runs fine until I exit the 3rd-party app that called CreateObject() on my DLL. At that point Dr.Watson pops and the application crashes.

Debugging an ActiveX control is proving to be a bit difficult and is the reason why I redirect stdout/err to a file at the beggining of my test stub.

This is the basic "life" of my DLL:
1) VB app calls CreateObject() on my DLL
2) VB app calls InitIO()
This is where I spawn a thread that just sits in a while() loop and detach it.
3) When the VB app is closed it calls ShutdownIO()
This is where I set the shared variable $running to '0' so that the child will exit it's while() loop and allow the thread to close.

These are the log results with the code as is below:

ShutdownIO()
A thread exited while 2 other threads were still running.

You'll notice that the DLL object is destroyed before the child thread has a chance to exit the while() loop. The 'print "Exiting...\n";' never gets evaluated and it displays an message about other threads exisiting.

If I uncomment the sleep() call in ShutdownIO() then the debug shows that the child thread exits it's while() loop...

ShutdownIO()...
Exiting...
Free to wrong pool 1283b00 not 849b58 during global destruction.

But then the "Free to wrong pool..." messages appear.

Does anyone see something painfully obvious that I'm doing wrong?

-Nitrox

use threads;
use threads::shared;
use strict;
use warnings;
use Win32;

open(STDOUT, ">>cp_std.log") || die "Can't redirect stdout";
open(STDERR, ">&STDOUT") || die "Can't dup stdout";
select(STDERR); $| = 1;
select(STDOUT); $| = 1;

my $running = 0;
share($running);

exit;

sub main_loop {
    while($running){
        Win32::Sleep(250);
        }
    print "Exiting...\n";
    }

sub ShutdownIO {
    print "ShutdownIO()...\n";
    $running = 0;
    #Win32::Sleep(2000);
    return;
    }

sub InitIO {
    if(!$running){
        $running = 1;
        my $poll_thrd  = threads->create("main_loop","");
        $poll_thrd->detach;
            }
    return("");
    }
[download]