#! /usr/bin/perl
use strict;
use Win32::MMF::Shareable; # v0.09c
if( fork )
{
sleep 1;
tie( my %share, 'Win32::MMF::Shareable', 'share' ) || die;
$share{parent} = 1;
}
else
{
tie( my %share, 'Win32::MMF::Shareable', 'share' ) || die;
$share{child} = 1;
}
__END__
[Perl.exe crashes]
Free to wrong pool 34530 not 34578 during global destruction.
----------------------------------------
Error seems to come from either of:
C:\Perl\bin\perl58.dll (binary)
C:\Perl\lib\CORE\vmem.h 207: Perl_warn(aTHX_ "Free to wrong pool %p
+ not %p",this,ptr->owner);
#! /usr/bin/perl
use strict;
use Win32::MMF::Shareable;
$|++;
tie( my $share, 'Win32::MMF::Shareable', 'share' ) || die;
unless( fork ) { exit 0 }
sleep 1; # make sure child exits before continuing
print "----before\n";
# set/get crashes
$share = 'bbb';
my $temp = $share;
print "----after\n";
__END__
----before
[crash]