R
rob.chuah
I have posted actually on the perl.ithread forum but found out later it
is a low activity forum. So I am trying out my luck here again and
hopefully wont be taken as spamming.
I was trying to run some code usign Parallel:ForkManager but come to
the error message "Free to wrong pool 2227b8 not 3d5a2aa0 at
C:/Perl/lib/XSLoader.pm line -1."
Not sure if anyone see this before and have this fixed ?
I am running Perl v5.8.8 built for MSWin32-x86-multi-thread on WinXP
SP2
below are the code snippet
use LWP::Simple;
use Parallel::ForkManager;
...
@links=(
["http://www.foo.bar/rulez.data","rulez_data.txt"],
["http://new.host/more_data.doc","more_data.doc"],
...
);
...
# Max 30 processes for parallel download
my $pm = new Parallel::ForkManager(30);
foreach my $linkarray (@links) {
$pm->start and next; # do the fork
my ($link,$fn) = @$linkarray;
warn "Cannot get $fn from $link"
if getstore($link,$fn) != RC_OK;
$pm->finish; # do the exit in the child process
}
$pm->wait_all_children;
is a low activity forum. So I am trying out my luck here again and
hopefully wont be taken as spamming.
I was trying to run some code usign Parallel:ForkManager but come to
the error message "Free to wrong pool 2227b8 not 3d5a2aa0 at
C:/Perl/lib/XSLoader.pm line -1."
Not sure if anyone see this before and have this fixed ?
I am running Perl v5.8.8 built for MSWin32-x86-multi-thread on WinXP
SP2
below are the code snippet
use LWP::Simple;
use Parallel::ForkManager;
...
@links=(
["http://www.foo.bar/rulez.data","rulez_data.txt"],
["http://new.host/more_data.doc","more_data.doc"],
...
);
...
# Max 30 processes for parallel download
my $pm = new Parallel::ForkManager(30);
foreach my $linkarray (@links) {
$pm->start and next; # do the fork
my ($link,$fn) = @$linkarray;
warn "Cannot get $fn from $link"
if getstore($link,$fn) != RC_OK;
$pm->finish; # do the exit in the child process
}
$pm->wait_all_children;