]> git.vpit.fr Git - perl/modules/Scope-Upper.git/commitdiff
Two less auto variables
authorVincent Pit <vince@profvince.com>
Tue, 30 Dec 2008 18:39:12 +0000 (19:39 +0100)
committerVincent Pit <vince@profvince.com>
Tue, 30 Dec 2008 18:39:12 +0000 (19:39 +0100)
Upper.xs

index 07b97414f531f9310757d97b281bfab3886d7f0c..b2344b9804c0be57573c894ad2080a60e9981cb3 100644 (file)
--- 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);