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

[Father Chrysostomos]

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 <spr...@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