]> git.vpit.fr Git - perl/modules/LaTeX-TikZ.git/commitdiff
Don't overwrite an ancestor functor rule
authorVincent Pit <vince@profvince.com>
Wed, 22 Apr 2015 19:43:11 +0000 (16:43 -0300)
committerVincent Pit <vince@profvince.com>
Wed, 22 Apr 2015 19:43:23 +0000 (16:43 -0300)
If A was an ancestor of B, and both A and B declared rules, then the rule
for A used to be replaced by the one for A instead of being pushed further
away in the rule list.

lib/LaTeX/TikZ/Functor/Rule.pm

index 8cebab1daf0bd8a667115d6e59950c8ed098dd69..88e30db44f3a847ef181c2808bb5c70968549f82 100644 (file)
@@ -196,7 +196,7 @@ sub insert {
   }
 
   if (defined $pos) {
-   splice @$list, $pos, 1, $rule;
+   splice @$list, $pos, 0, $rule;
    return 0;
   }
  }