develooper Front page | perl.perl5.changes | Postings from November 2010

[perl.git] branch blead, updated. v5.13.7-96-g1be7d6f

From:
Father Chrysostomos
Date:
November 25, 2010 09:43
Subject:
[perl.git] branch blead, updated. v5.13.7-96-g1be7d6f
Message ID:
E1PLfqY-0001pa-Bx@camel.ams6.corp.booking.com
In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/1be7d6f30dca514e55231f7f2c85ef4f0c2e72ad?hp=88e9444c4ef58850472b05bba333f4072222d0da>

- Log -----------------------------------------------------------------
commit 1be7d6f30dca514e55231f7f2c85ef4f0c2e72ad
Author: Father Chrysostomos <sprout@cpan.org>
Date:   Thu Nov 25 06:14:40 2010 -0800

    [perl #78438] Memory leak with 'use v5.42'

M	pp_ctl.c

commit 9d056fb0da516ee7e0b8deae1b90a1e2f382c7ec
Author: Father Chrysostomos <sprout@cpan.org>
Date:   Thu Nov 25 06:11:12 2010 -0800

    Stop eval "use 6" from leaking

M	pp_ctl.c

commit e753e3b14f2b73d39c5b0f4ae0a3b171e8c72823
Author: Father Chrysostomos <sprout@cpan.org>
Date:   Thu Nov 25 06:06:31 2010 -0800

    Stop eval "no 5" from leaking

M	pp_ctl.c
-----------------------------------------------------------------------

Summary of changes:
 pp_ctl.c |   17 +++++++++++------
 1 files changed, 11 insertions(+), 6 deletions(-)

diff --git a/pp_ctl.c b/pp_ctl.c
index 3629c93..a2c3b7e 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -3422,7 +3422,9 @@ PP(pp_require)
 	if (cUNOP->op_first->op_type == OP_CONST && cUNOP->op_first->op_private & OPpCONST_NOVER) {
 	    if ( vcmp(sv,PL_patchlevel) <= 0 )
 		DIE(aTHX_ "Perls since %"SVf" too modern--this is %"SVf", stopped",
-		    SVfARG(vnormal(sv)), SVfARG(vnormal(PL_patchlevel)));
+		    SVfARG(sv_2mortal(vnormal(sv))),
+		    SVfARG(sv_2mortal(vnormal(PL_patchlevel)))
+		);
 	}
 	else {
 	    if ( vcmp(sv,PL_patchlevel) > 0 ) {
@@ -3441,8 +3443,10 @@ PP(pp_require)
 		    || strstr(SvPVX(pv),".0")        /* FP with leading 0 */
 		   ) {
 		    DIE(aTHX_ "Perl %"SVf" required--this is only "
-		    	"%"SVf", stopped", SVfARG(vnormal(req)),
-			SVfARG(vnormal(PL_patchlevel)));
+		    	"%"SVf", stopped",
+			SVfARG(sv_2mortal(vnormal(req))),
+			SVfARG(sv_2mortal(vnormal(PL_patchlevel)))
+		    );
 		}
 		else { /* probably 'use 5.10' or 'use 5.8' */
 		    SV *hintsv;
@@ -3458,9 +3462,10 @@ PP(pp_require)
 
 		    DIE(aTHX_ "Perl %"SVf" required (did you mean %"SVf"?)"
 		    	"--this is only %"SVf", stopped",
-			SVfARG(vnormal(req)),
-			SVfARG(vnormal(sv_2mortal(hintsv))),
-			SVfARG(vnormal(PL_patchlevel)));
+			SVfARG(sv_2mortal(vnormal(req))),
+			SVfARG(sv_2mortal(vnormal(sv_2mortal(hintsv)))),
+			SVfARG(sv_2mortal(vnormal(PL_patchlevel)))
+		    );
 		}
 	    }
 	}

--
Perl5 Master Repository



nntp.perl.org: Perl Programming lists via nntp and http.
Comments to Ask Bjørn Hansen at ask@perl.org | Group listing | About