From: Vincent Pit <vince@profvince.com>
Date: Sun, 15 Aug 2010 16:22:30 +0000 (+0200)
Subject: Prevent some "uninitialized" warnings when pruning a rule list
X-Git-Tag: rt87282~38
X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=f424040eff31962e11e047917314519df3ab6a88;p=perl%2Fmodules%2FLaTeX-TikZ.git

Prevent some "uninitialized" warnings when pruning a rule list

This part of the code is obviously *not* tested.
---

diff --git a/lib/LaTeX/TikZ/Functor/Rule.pm b/lib/LaTeX/TikZ/Functor/Rule.pm
index 666fd34..0f86be1 100644
--- a/lib/LaTeX/TikZ/Functor/Rule.pm
+++ b/lib/LaTeX/TikZ/Functor/Rule.pm
@@ -158,7 +158,7 @@ sub insert {
    }
   }
 
-  my $shift;
+  my $shift = 0;
   for (@remove) {
    splice @$list, $_ - $shift, 1;
    ++$shift;