]> git.vpit.fr Git - perl/modules/Scope-Upper.git/commitdiff
Remove some unused variables.
authorFlorian Ragwitz <rafl@debian.org>
Wed, 4 Feb 2009 21:56:23 +0000 (22:56 +0100)
committerFlorian Ragwitz <rafl@debian.org>
Wed, 4 Feb 2009 21:56:23 +0000 (22:56 +0100)
Upper.xs

index 548064bf4e87774efdfb6662bb72d88f703db0b2..c7b3a6e299c34638079caa028be99cf3447887fe 100644 (file)
--- a/Upper.xs
+++ b/Upper.xs
@@ -137,7 +137,6 @@ STATIC I32 su_av_key2idx(pTHX_ AV *av, I32 key) {
  if (SvRMAGICAL(av)) {
   const MAGIC * const tied_magic = mg_find((SV *) av, PERL_MAGIC_tied);
   if (tied_magic) {
-   int adjust_index = 1;
    SV * const * const negative_indices_glob =
                     hv_fetch(SvSTASH(SvRV(SvTIED_obj((SV *) (av), tied_magic))),
                              NEGATIVE_INDICES_VAR, 16, 0);
@@ -491,7 +490,6 @@ STATIC void su_pop(pTHX_ void *ud) {
 STATIC I32 su_init(pTHX_ I32 cxix, void *ud, I32 size) {
 #define su_init(L, U, S) su_init(aTHX_ (L), (U), (S))
  I32 i, depth = 0, *origin;
- I32 cur, last, step;
 
  LEAVE;