In Perl_pad_new(), avoid calling av_fetch() for something we already know.

We've just stored padname and pad as the first two elements in padlist - so
calling av_fetch() is makework.

The code was the way it was because dd2155a49b710f23 moved the two halves from
disjoint locations into the same function adjacent to each other, but didn't
spot this subsequent optimisation.

1 files changed, 3 insertions, 3 deletions

diff --git a/pad.c b/pad.c
index 1fcd375152..07630c2d59 100644
--- a/pad.c
+++ b/pad.c
@@ -214,9 +214,9 @@ Perl_pad_new(pTHX_ int flags)
 
     /* ... then update state variables */
 
-    PL_comppad_name	= MUTABLE_AV((*av_fetch(padlist, 0, FALSE)));
-    PL_comppad		= MUTABLE_AV((*av_fetch(padlist, 1, FALSE)));
-    PL_curpad		= AvARRAY(PL_comppad);
+    PL_comppad_name	= padname;
+    PL_comppad		= pad;
+    PL_curpad		= AvARRAY(pad);
 
     if (! (flags & padnew_CLONE)) {
 	PL_comppad_name_fill = 0;