From: Vincent Pit <vince@profvince.com>
Date: Tue, 30 Dec 2008 18:39:12 +0000 (+0100)
Subject: Two less auto variables
X-Git-Tag: v0.03~6
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=a545c82bdedb5a73447abc668f30e73367711a99;p=perl%2Fmodules%2FScope-Upper.git

Two less auto variables
---

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);