From: Vincent Pit <vince@profvince.com>
Date: Tue, 11 Sep 2012 12:27:00 +0000 (+0200)
Subject: Silence a couple of warnings reported by gcc
X-Git-Tag: v0.20~13
X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FScope-Upper.git;a=commitdiff_plain;h=dcc300c85d8832a6e0ad6852f68ea4ec5899348d

Silence a couple of warnings reported by gcc
---

diff --git a/Upper.xs b/Upper.xs
index f90f319..906065a 100644
--- a/Upper.xs
+++ b/Upper.xs
@@ -286,7 +286,6 @@ STATIC void su_uid_storage_dup(pTHX_ su_uid_storage *new_cxt, const su_uid_stora
  if (old_map) {
   su_uid **new_map = new_cxt->map;
   STRLEN old_used  = old_cxt->used;
-  STRLEN old_alloc = old_cxt->alloc;
   STRLEN new_used, new_alloc;
   STRLEN i;
 
@@ -1172,7 +1171,7 @@ STATIC int su_uplevel_goto_static(const OP *o) {
    case OP_GOTO:
     return 1;
    default:
-    if (su_uplevel_goto_static(cUNOPo->op_first))
+    if (su_uplevel_goto_static(((const UNOP *) o)->op_first))
      return 1;
     break;
   }