In perl.git, the branch maint-5.12 has been updated <http://perl5.git.perl.org/perl.git/commitdiff/f3918f45c2654afdb658a3a7d8ca764a506bf996?hp=b5804e7405ca76c66ded7687efef091258faabac>
- Log ----------------------------------------------------------------- commit f3918f45c2654afdb658a3a7d8ca764a506bf996 Author: Craig A. Berry <[email protected]> Date: Thu Jul 1 19:47:34 2010 -0500 Fix nasty memory leak in vms.c:Perl_flex_stat_int(). Thanks to Mark Berryman in Message-id: <[email protected]> for the report and the fix. M vms/vms.c commit ab80b95f09c6df5f4ffd8ac4f1d30ede317a7eb8 Author: Craig A. Berry <[email protected]> Date: Sat Jun 26 10:06:51 2010 -0500 Install git_version.h on VMS. This was an oversight in 5.12.0 and without it some extension builds fail. M vms/descrip_mms.template commit e3d01d03b9fef5b3d7ef1d435ccdd752df78de51 Author: Salvador Ortiz Garcia <[email protected]> Date: Fri May 28 10:25:52 2010 +0200 Naif calls segfault T_PRTOBJ of the stock typemap The T_PTROBJ INPUT in stock typemap only uses 'sv_derived_from' for input validation, that cause a segfault when the argument passed match the class name. M lib/ExtUtils/typemap commit 288711c4198e188171a1784a727524491dd8b9ba Author: H.Merijn Brand <[email protected]> Date: Tue May 25 18:26:37 2010 +0200 Update rsync sources in perlhack M pod/perlhack.pod commit 4e4b36f41ef6ffeaf977133dfa9405ab80640053 Author: Dan Dascalescu <[email protected]> Date: Tue May 18 15:12:19 2010 -0700 Fixed typo: "effecting data" -> "affecting data". M lib/File/Find.pm commit 6115ec676d5faf46bc5ee0e1d3f3d03ac7638ba4 Author: Steffen Mueller <[email protected]> Date: Tue Apr 20 08:28:49 2010 +0200 Module::Pluggable has upstream => cpan According to Simon Wistow. M Porting/Maintainers.pl commit ff775822aba992df8abdfd12c789a1b523c3ae22 Author: Ãvar Arnfjörð Bjarmason <[email protected]> Date: Thu Apr 15 20:06:24 2010 +0200 Point submitters to [email protected], not [email protected] We usually want patches in RT. Patches should only go to perl5-porters if they're intended purely for discussion. M pod/perlrepository.pod ----------------------------------------------------------------------- Summary of changes: Porting/Maintainers.pl | 2 +- lib/ExtUtils/typemap | 2 +- lib/File/Find.pm | 2 +- pod/perlhack.pod | 17 +++++++++++------ pod/perlrepository.pod | 23 +++++++++++++++-------- vms/descrip_mms.template | 5 ++++- vms/vms.c | 2 ++ 7 files changed, 35 insertions(+), 18 deletions(-) diff --git a/Porting/Maintainers.pl b/Porting/Maintainers.pl index 5d77bc5..93b3cd4 100755 --- a/Porting/Maintainers.pl +++ b/Porting/Maintainers.pl @@ -1056,7 +1056,7 @@ use File::Glob qw(:case); 'DISTRIBUTION' => 'SIMONW/Module-Pluggable-3.9.tar.gz', 'FILES' => q[cpan/Module-Pluggable], 'CPAN' => 1, - 'UPSTREAM' => undef, + 'UPSTREAM' => 'cpan', }, 'Net::Ping' => diff --git a/lib/ExtUtils/typemap b/lib/ExtUtils/typemap index 2c35437..f888587 100644 --- a/lib/ExtUtils/typemap +++ b/lib/ExtUtils/typemap @@ -149,7 +149,7 @@ T_REF_IV_PTR ${$ALIAS?\q[GvNAME(CvGV(cv))]:\qq[\"$pname\"]}, \"$var\", \"$ntype\") T_PTROBJ - if (sv_derived_from($arg, \"${ntype}\")) { + if (SvROK($arg) && sv_derived_from($arg, \"${ntype}\")) { IV tmp = SvIV((SV*)SvRV($arg)); $var = INT2PTR($type,tmp); } diff --git a/lib/File/Find.pm b/lib/File/Find.pm index 3ea53a5..e72f3e3 100644 --- a/lib/File/Find.pm +++ b/lib/File/Find.pm @@ -217,7 +217,7 @@ through a collection of variables. =back The above variables have all been localized and may be changed without -effecting data outside of the wanted function. +affecting data outside of the wanted function. For example, when examining the file F</some/path/foo.ext> you will have: diff --git a/pod/perlhack.pod b/pod/perlhack.pod index ef59eba..902593e 100644 --- a/pod/perlhack.pod +++ b/pod/perlhack.pod @@ -214,16 +214,21 @@ changes. How to clone and use the git perl repository is described in L<perlrepository>. You can also choose to use rsync to get a copy of the current source tree -for the bleadperl branch and all maintenance branches : +for the bleadperl branch and all maintenance branches: - $ rsync -avz rsync://perl5.git.perl.org/APC/perl-current . - $ rsync -avz rsync://perl5.git.perl.org/APC/perl-5.10.x . - $ rsync -avz rsync://perl5.git.perl.org/APC/perl-5.8.x . - $ rsync -avz rsync://perl5.git.perl.org/APC/perl-5.6.x . - $ rsync -avz rsync://perl5.git.perl.org/APC/perl-5.005xx . + $ rsync -avz rsync://perl5.git.perl.org/perl-current . + $ rsync -avz rsync://perl5.git.perl.org/perl-5.12.x . + $ rsync -avz rsync://perl5.git.perl.org/perl-5.10.x . + $ rsync -avz rsync://perl5.git.perl.org/perl-5.8.x . + $ rsync -avz rsync://perl5.git.perl.org/perl-5.6.x . + $ rsync -avz rsync://perl5.git.perl.org/perl-5.005xx . (Add the C<--delete> option to remove leftover files) +To get a full list of the available sync points: + + $ rsync perl5.git.perl.org:: + You may also want to subscribe to the perl5-changes mailing list to receive a copy of each patch that gets submitted to the maintenance and development "branches" of the perl repository. See diff --git a/pod/perlrepository.pod b/pod/perlrepository.pod index 65c3746..f13be01 100644 --- a/pod/perlrepository.pod +++ b/pod/perlrepository.pod @@ -359,10 +359,13 @@ Now you should create a patch file for all your local changes: % git format-patch origin 0001-Rename-Leon-Brocard-to-Orange-Brocard.patch -You should now send an email to [email protected] with a -description of your changes, and include this patch file as an -attachment. (See the next section for how to configure and use git to -send these emails for you.) +You should now send an email to either [email protected] or [email protected] with a description of your changes, and include +this patch file as an attachment. The perlbug address is preferred, +but use perl5-porters for patches intended for discussion. + +See the next section for how to configure and use git to send these +emails for you. If you want to delete your temporary branch, you may do so with: @@ -375,8 +378,12 @@ If you want to delete your temporary branch, you may do so with: =head2 Using git to send patch emails -In your ~/git/perl repository, set the destination email to the -perl5-porters mailing list. +In your ~/git/perl repository, set the destination email to perl's bug +tracker: + + $ git config sendemail.to [email protected] + +Or maybe perl5-porters (discussed above): $ git config sendemail.to [email protected] @@ -733,8 +740,8 @@ The same patch as above, using github might look like this: % git push origin orange The orange branch has been pushed to GitHub, so you should now send an -email to [email protected] with a description of your changes and -the following information: +email (see L</SUBMITTING A PATCH>) with a description of your changes +and the following information: http://github.com/USERNAME/perl/tree/orange [email protected]:USERNAME/perl.git branch orange diff --git a/vms/descrip_mms.template b/vms/descrip_mms.template index 74408fe..39e3d90 100644 --- a/vms/descrip_mms.template +++ b/vms/descrip_mms.template @@ -313,7 +313,7 @@ h = $(h0) $(h1) $(h2) $(h3) $(h4) $(h5) $(h6) ac0 = $(ARCHCORE)$(sockh) $(ARCHCORE)av.h $(ARCHCORE)cc_runtime.h ac1 = $(ARCHCORE)config.h $(ARCHCORE)cop.h $(ARCHCORE)cv.h $(ARCHCORE)embed.h ac2 = $(ARCHCORE)embedvar.h $(ARCHCORE)EXTERN.h $(ARCHCORE)fakethr.h -ac3 = $(ARCHCORE)form.h $(ARCHCORE)gv.h $(ARCHCORE)handy.h $(ARCHCORE)hv.h +ac3 = $(ARCHCORE)form.h $(ARCHCORE)git_version.h $(ARCHCORE)gv.h $(ARCHCORE)handy.h $(ARCHCORE)hv.h ac4 = $(ARCHCORE)INTERN.h $(ARCHCORE)intrpvar.h $(ARCHCORE)iperlsys.h ac5 = $(ARCHCORE)keywords.h $(ARCHCORE)mydtrace.h $(ARCHCORE)mg.h $(ARCHCORE)nostdio.h ac6 = $(ARCHCORE)op.h $(ARCHCORE)opcode.h $(ARCHCORE)opnames.h $(ARCHCORE)overload.h @@ -1544,6 +1544,9 @@ $(ARCHCORE)fakethr.h : fakethr.h $(ARCHCORE)form.h : form.h @ If F$Search("$(ARCHDIR)CORE.dir").eqs."" Then Create/Directory $(ARCHCORE) Copy/NoConfirm/Log $(MMS$SOURCE) $(ARCHCORE) +$(ARCHCORE)git_version.h : git_version.h + @ If F$Search("$(ARCHDIR)CORE.dir").eqs."" Then Create/Directory $(ARCHCORE) + Copy/NoConfirm/Log $(MMS$SOURCE) $(ARCHCORE) $(ARCHCORE)gv.h : gv.h @ If F$Search("$(ARCHDIR)CORE.dir").eqs."" Then Create/Directory $(ARCHCORE) Copy/NoConfirm/Log $(MMS$SOURCE) $(ARCHCORE) diff --git a/vms/vms.c b/vms/vms.c index 60f01e3..cf23c6b 100644 --- a/vms/vms.c +++ b/vms/vms.c @@ -12997,6 +12997,8 @@ Perl_flex_stat_int(pTHX_ const char *fspec, Stat_t *statbufp, int lstat_flag) } /* If we were successful, leave errno where we found it */ if (retval == 0) RESTORE_ERRNO; + PerlMem_free(temp_fspec); + PerlMem_free(fileified); return retval; } /* end of flex_stat_int() */ -- Perl5 Master Repository
