2009/8/6 Curtis Jewell <lists.perl.perl5-porters@csjewell.fastmail.us>: > > > On Thu, 06 Aug 2009 16:48 +0100, "Dave Mitchell" <davem@iabyn.com> > wrote: >> On Wed, Aug 05, 2009 at 12:42:12PM -0700, kmx via RT wrote: >> > Hi, >> > >> > > The real issue is that in perl_clone_using(), it frees the ptr_table >> > > *before* calling the CLONE methods. >> > > >> > > With b0b93b3c773176a99136baa97661d11503277415, I've fixed >> > > perl_clone_using() to free it afterwards; then I've backed out the >> > > win32/perlhost.h change. >> > >> > I have build perl/Win32 (using mingw) from blead with the >> > above-mentioned patch and all crashing cases I knew about work fine now. >> > >> > Many thanks to all of you involved in solving this issues. >> > >> > > I'll be pushing this into maint in a moment. >> > Does it mean there is a chance to see this fix in 5.10.1? >> >> Yes, it'll be in 5.10.1 > > and it works in the Perl that was tagged 5.10.1 RC1: > > C:\NewFolder>\perl\bin\perl.exe -e "use namespace::clean; fork; print > qq{1\n}";" > 1 > 1 > > (test.pl being the script used in perl rt# 66158) > > C:\NewFolder>\perl\bin\perl test.pl > After fork 1: 5524 > After fork 2: -6120 > > The Perl in question? > > (I just compiled this from > http://perl5.git.perl.org/perl.git/snapshot/d79203520c4254550b36937dae4d767b6a21d93d.tar.gz, > which was gotten from > http://perl5.git.perl.org/perl.git/shortlog/refs/heads/maint-5.10, which > means whatever I got from the snapshot link is just a little "off" in > the reporting on the first line below. But it DID work! I also attached > my (passing) smoke report [which is warped the same way], since I don't > have a mailer set up for Test::Smoke - my smtp server is > TLS-highly-preferred and authenticated-use-only. [There are other > receiving smtp servers.]) > > Summary of my perl5 (revision 5 version 10 subversion 1 patch maint-5.10 > 2009-08-06.00:19:12 d79203520c4254550b36937dae4d767b6a21d93d > GitLive-blead-1787-ga0db33f) configuration: Hrm, this is a bug by me. I have to fix that. (Note the tag doesnt match the sha1) Yves -- perl -Mre=debug -e "/just|another|perl|hacker/"Thread Previous | Thread Next