Don't overwrite an ancestor functor rule

[perl/modules/LaTeX-TikZ.git] / lib / LaTeX / TikZ / Functor / Rule.pm

diff --git a/lib/LaTeX/TikZ/Functor/Rule.pm b/lib/LaTeX/TikZ/Functor/Rule.pm
index 8cebab1daf0bd8a667115d6e59950c8ed098dd69..88e30db44f3a847ef181c2808bb5c70968549f82 100644 (file)
--- a/lib/LaTeX/TikZ/Functor/Rule.pm
+++ b/lib/LaTeX/TikZ/Functor/Rule.pm
@@ -196,7 +196,7 @@ sub insert {
   }
 
   if (defined $pos) {
-   splice @$list, $pos, 1, $rule;
+   splice @$list, $pos, 0, $rule;
    return 0;
   }
  }