I think that was a bug in 5.8.0 that was fixed for 5.8.1. I will take a look later and try and find the reference at perl.org (I have to go now for an hour or so).

If memory serves me correctly, the error only occurs as the program terminates and cleans up the threads, and doesn't actually effect the runtime operation of the program. I seem to recall resorting to adding POSIX::_exit() at the end of the program to avoid the problem occuring.

I'll take another look later and try to confirm my memory.

Despite my best efforts, I can't locate the patch that fixed the "Free to wrong pool" error during thread cleanup. I found this reference plus some others, but not the patch. I find it pretty difficult to find anything on the myriad perl.org lists, archives, news feeds and RT system. Maybe I just go about it the wrong way?

Anyway, you can work around the problem by replacing the line

$_->join for @threads;
[download]

with

use POSIX qw[_exit];
_exit 0;
[download]

This simply bypasses the thread cleanup code in perl and leaves the OS to clean up the mess, which it does without the associated message and segfault.

You could also upgrade to 5.8.1 but that means building perl, plus Win32::OLE yourself which is non-trivial, and the _exit() "fix" is simple and effective.

HTH.

HHHHOOOOOO WWWWWEEEEEEE....This mother of a code is SMOKIN!

Thanks alot BrowserUK my friend,....I try few things with this beautiful code and get back with my findings.

:DDDDDDDDDD