This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Another oops.
authorFather Chrysostomos <sprout@cpan.org>
Tue, 30 Nov 2010 06:23:12 +0000 (22:23 -0800)
committerFather Chrysostomos <sprout@cpan.org>
Tue, 30 Nov 2010 06:23:12 +0000 (22:23 -0800)
Something else changed unnecessarily by 541ed3a9. I really oughtn’t do
this when I’ve been awake for more than 18 hours....

pp_hot.c

index c2b05ca..9c5f325 100644 (file)
--- 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 @_ */