X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=Upper.xs;h=b2344b9804c0be57573c894ad2080a60e9981cb3;hb=a545c82bdedb5a73447abc668f30e73367711a99;hp=07b97414f531f9310757d97b281bfab3886d7f0c;hpb=84566b6479d4169e7c76ea33ca3885be70735303;p=perl%2Fmodules%2FScope-Upper.git

diff --git a/Upper.xs b/Upper.xs
index 07b9741..b2344b9 100644
--- a/Upper.xs
+++ b/Upper.xs
@@ -315,16 +315,14 @@ STATIC void su_localize(pTHX_ void *ud_) {
  switch (t) {
   case SVt_PVAV:
    if (elem) {
-    AV *av = GvAV(gv);
-    su_save_aelem(av, elem, val);
+    su_save_aelem(GvAV(gv), elem, val);
     goto done;
    } else
     save_ary(gv);
    break;
   case SVt_PVHV:
    if (elem) {
-    HV *hv = GvHV(gv);
-    su_save_helem(hv, elem, val);
+    su_save_helem(GvHV(gv), elem, val);
     goto done;
    } else
     save_hash(gv);