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

[perl.git] branch blead, updated. v5.13.7-116-g7857f36

From:
Father Chrysostomos
Date:
November 26, 2010 12:45
Subject:
[perl.git] branch blead, updated. v5.13.7-116-g7857f36
Message ID:
E1PM5AW-0007pL-01@camel.ams6.corp.booking.com
In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/7857f36095641de1280b49b62ddb1f1ad78db186?hp=75bd28cfd597653e1169cbeb4920b7ba42eb8503>

- Log -----------------------------------------------------------------
commit 7857f36095641de1280b49b62ddb1f1ad78db186
Author: Father Chrysostomos <sprout@cpan.org>
Date:   Fri Nov 26 12:44:43 2010 -0800

    Avoid redundant hv_delete call in pp_entereval
    
    This commit just avoids a redundant hv_delete call if leave_scope is
    already going to do it.
-----------------------------------------------------------------------

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

diff --git a/pp_ctl.c b/pp_ctl.c
index 13a4f22..fa25681 100644
--- a/pp_ctl.c
+++ b/pp_ctl.c
@@ -3953,7 +3953,7 @@ PP(pp_entereval)
 	    ? (PERLDB_LINE || PERLDB_SAVESRC)
 	    :  PERLDB_SAVESRC_INVALID) {
 	    /* Retain the filegv we created.  */
-	} else {
+	} else if (!saved_delete) {
 	    (void)hv_delete(PL_defstash, tmpbuf, len, G_DISCARD);
 	}
 	return PL_op->op_next;

--
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