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

[perl.git] branch blead, updated. v5.13.7-201-g10533ac

From:
Father Chrysostomos
Date:
November 29, 2010 22:23
Subject:
[perl.git] branch blead, updated. v5.13.7-201-g10533ac
Message ID:
E1PNJcb-0006YS-Um@camel.ams6.corp.booking.com
In perl.git, the branch blead has been updated

<http://perl5.git.perl.org/perl.git/commitdiff/10533aceddca633dc790cac997abdf25175ed2c8?hp=490d91dd1a0e93241f348b009a39fe6a61fc2256>

- Log -----------------------------------------------------------------
commit 10533aceddca633dc790cac997abdf25175ed2c8
Author: Father Chrysostomos <sprout@cpan.org>
Date:   Mon Nov 29 22:23:12 2010 -0800

    Another oops.
    
    Something else changed unnecessarily by 541ed3a9. I really oughtn’t do
    this when I’ve been awake for more than 18 hours....
-----------------------------------------------------------------------

Summary of changes:
 pp_hot.c |    4 +---
 1 files changed, 1 insertions(+), 3 deletions(-)

diff --git a/pp_hot.c b/pp_hot.c
index c2b05ca..9c5f325 100644
--- a/pp_hot.c
+++ b/pp_hot.c
@@ -2898,9 +2898,7 @@ try_autoload:
 	SAVECOMPPAD();
 	PAD_SET_CUR_NOSAVE(padlist, CvDEPTH(cv));
 	if (hasargs) {
-	    AV *av = MUTABLE_AV(PAD_SVl(0));
-	    if ((SV *)av == &PL_sv_undef)
-		PAD_SVl(0) = (SV *)(av = newAV());
+	    AV *const av = MUTABLE_AV(PAD_SVl(0));
 	    if (AvREAL(av)) {
 		/* @_ is normally not REAL--this should only ever
 		 * happen when DB::sub() calls things that modify @_ */

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