In perl.git, the branch maint-5.10 has been updated <http://perl5.git.perl.org/perl.git/commitdiff/02784d74952049f63fc33e0ce922ee6aa93bf665?hp=5b53e9f3c366c11df59536b294aba43e843db9b0>
- Log ----------------------------------------------------------------- commit 02784d74952049f63fc33e0ce922ee6aa93bf665 Author: David Mitchell <[email protected]> Date: Wed Aug 5 15:23:41 2009 +0100 in perl_clone_using, free the prt_table *after* we have called any CLONE methods (better fix for Variable::Magic than 240bfeb992) (cherry picked from commit b0b93b3c773176a99136baa97661d11503277415) M sv.c commit 5eccd2e5c682a62b41aeaf2548eca3607486aad9 Author: Jesse Vincent <[email protected]> Date: Wed Aug 5 14:31:10 2009 +0100 Now down to 17 unknown addresses which "should" be in the authors file. Extensive googling and other sleuthing helped resolve the names of many people previously listed as "unknown" (cherry picked from commit c07671d7439660780f82b47a35f6ff224e370dba) M AUTHORS M Porting/checkAUTHORS.pl ----------------------------------------------------------------------- Summary of changes: AUTHORS | 14 ++++++++++++-- Porting/checkAUTHORS.pl | 17 ++++------------- sv.c | 11 ++++++----- 3 files changed, 22 insertions(+), 20 deletions(-) diff --git a/AUTHORS b/AUTHORS index 949baeb..1705d44 100644 --- a/AUTHORS +++ b/AUTHORS @@ -350,6 +350,7 @@ Gerrit P. Haase <[email protected]> Giles Lean <[email protected]> Gisle Aas <[email protected]> Glenn Linderman <[email protected]> +Gordon Lack <[email protected]> Gordon J. Miller <[email protected]> Goro Fuji <[email protected]> Grace Lee <[email protected]> @@ -685,10 +686,12 @@ Michael Carman <[email protected]> Michael Cook <[email protected]> Michael Cummings <[email protected]> Michael De La Rue <[email protected]> +Michael van Elst <[email protected]> Michael Engel <[email protected]> Michael G Schwern <[email protected]> Michael H. Moran <[email protected]> Michael King <[email protected]> +Michael Lemke <[email protected]> Michael Mahan <[email protected]> Michael Schroeder <[email protected]> Michael Somos <[email protected]> @@ -711,6 +714,7 @@ Mikhail Zabaluev <[email protected]> Milosz Tanski <[email protected]> Milton L. Hankins <[email protected]> Moritz Lenz <[email protected]> +Moshe Kaminsky <[email protected]> Mr. Nobody <[email protected]> Murray Nesbitt <[email protected]> Nathan Kurz <[email protected]> @@ -737,13 +741,14 @@ Norton T. Allen <[email protected]> Offer Kaye <[email protected]> Olaf Flebbe <[email protected]> Olaf Titz <[email protected]> +Olivier Blin <[email protected]> Olli Savia Ollivier Robert <[email protected]> Olivier Thauvin <[email protected]> Osvaldo Villalon <[email protected]> Owen Taylor <[email protected]> parv <[email protected]> -Papp Zoltan <[email protected]> +Papp Zoltan <[email protected]> Pascal Rigaux <[email protected]> Patrick Donelan <[email protected]> Patrick Dugnolle <[email protected]> @@ -766,8 +771,9 @@ Paul Rogers <[email protected]> Paul Saab <[email protected]> Paul Schinder <[email protected]> Paul Szabo <[email protected]> +Pavel Ka¿kovský <[email protected]> Pavel Zakouril <[email protected]> -Pedro Felipe Horrillo Guerra <[email protected]> +Pedro Felipe Horrillo Guerra <[email protected]> Per Einar Ellefsen <[email protected]> Peter BARABAS Pete Peterson <[email protected]> @@ -872,6 +878,7 @@ Scott Gifford <[email protected]> Scott Henry <[email protected]> Scott Lanning <[email protected]> Scott L. Miller <[email protected]> +Scott Wiersdorf <[email protected]> Sean Boudreau <[email protected]> Sean Dague <[email protected]> Sean Davis <[email protected]> @@ -881,6 +888,7 @@ Sean Sheedy <[email protected]> Sebastian Wittmeier <[email protected]> Sébastien Aperghis-Tramoni <[email protected]> Sebastien Barre <[email protected]> +Sebastian Schmidt <[email protected]> Sebastian Steinlechner <[email protected]> Sérgio Durigan Júnior <[email protected]> Shawn <[email protected]> @@ -1011,6 +1019,7 @@ William Middleton <[email protected]> William R Ward <[email protected]> William Setzer <[email protected]> William Williams <[email protected]> +William Yardley <[email protected]> Winfried König <[email protected]> Wolfgang Laun <[email protected]> Xavier Noria <[email protected]> @@ -1025,4 +1034,5 @@ Yuval Kogman <[email protected]> Yves J. Orton <[email protected]> Zachary Miller <[email protected]> Zefram <[email protected]> +Zbynek Vyskovsky <[email protected]> Ævar Arnfjörð Bjarmason <[email protected]> diff --git a/Porting/checkAUTHORS.pl b/Porting/checkAUTHORS.pl index becd432..895dad3 100644 --- a/Porting/checkAUTHORS.pl +++ b/Porting/checkAUTHORS.pl @@ -49,28 +49,16 @@ $map {$_} = "?" for "bah\100longitude.com", "bbucklan\100jpl-devvax.jpl.nasa.gov", "bilbo\100ua.fm", - "blino\100mandriva.com", "bob\100starlabs.net", - "bonefish\100cs.tu-berlin.de", "cygwin\100cygwin.com", "david\100dhaller.de", "erik\100cs.uni-jena.de", - "gml4410\100ggr.co.uk", - "info\100lingo.kiev.ua", + "info\100lingo.kiev.ua", # Lingo Translation agency "jms\100mathras.comcast.net", - "kan\100dcit.cz", - "kaminsky\100math.huji.ac.il", - "kvr\100centrum.cz", - "lemkemch\100t-online.de", - "mlelstv\100serpens.de", - "perlbug\100veggiechinese.net", "premchai21\100yahoo.com", "pxm\100nubz.org", "raf\100tradingpost.com.au", - "scott\100perlcode.org", "smoketst\100hp46t243.cup.hp.com", - "yath-perlbug\100yath.de", - "oracle\100pcr8.pcr.com". # Probably Ed Eddington [email protected] "root\100chronos.fi.muni.cz", # no clue - jrv 20090803 "gomar\100md.media-web.de", # no clue - jrv 20090803 @@ -490,6 +478,8 @@ hansmu\100xs4all.nl hansm\100icgroup.nl hio\100ymir.co.jp hio\100hio.jp hops\100sco.com hops\100scoot.pdev.sco.com +ingo_weinhold\100gmx.de bonefish\100cs.tu-berlin.de + james\100mastros.biz theorb\100desert-island.me.uk jand\100activestate.com jan.dubois\100ibm.net japhy\100pobox.com japhy\100pobox.org @@ -719,3 +709,4 @@ whatever\100davidnicol.com davidnicol\100gmail.com wolfgang.laun\100alcatel.at wolfgang.laun\100chello.at + wolfgang.laun\100thalesgroup.com + wolfgang.laun\100gmail.com +yath\100yath.de yath-perlbug\100yath.de diff --git a/sv.c b/sv.c index a251b21..d2fcb0c 100644 --- a/sv.c +++ b/sv.c @@ -12109,11 +12109,6 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags, PL_registered_mros = hv_dup_inc(proto_perl->Iregistered_mros, param); - if (!(flags & CLONEf_KEEP_PTR_TABLE)) { - ptr_table_free(PL_ptr_table); - PL_ptr_table = NULL; - } - /* Call the ->CLONE method, if it exists, for each of the stashes identified by sv_dup() above. */ @@ -12133,6 +12128,12 @@ perl_clone_using(PerlInterpreter *proto_perl, UV flags, } } + if (!(flags & CLONEf_KEEP_PTR_TABLE)) { + ptr_table_free(PL_ptr_table); + PL_ptr_table = NULL; + } + + SvREFCNT_dec(param->stashes); /* orphaned? eg threads->new inside BEGIN or use */ -- Perl5 Master Repository
