Don't advertise PERL_HASH_SEED_EXPLICIT and NO_HASH_SEED

[perl5.git] / pp_hot.c

diff --git a/pp_hot.c b/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 @_ */