#! /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);