X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLaTeX-TikZ.git;a=blobdiff_plain;f=lib%2FLaTeX%2FTikZ%2FFunctor%2FRule.pm;h=0962e90b9aa8ecbda60e647c36f149ee2c7ecc73;hp=df5b553eb5a7256dd7e253f029c75f16d42a230f;hb=319c48d4562198fc1667447e685b92645f4c98ae;hpb=bc1f84f569da48d9d070384eb1bcccac289931e5 diff --git a/lib/LaTeX/TikZ/Functor/Rule.pm b/lib/LaTeX/TikZ/Functor/Rule.pm index df5b553..0962e90 100644 --- a/lib/LaTeX/TikZ/Functor/Rule.pm +++ b/lib/LaTeX/TikZ/Functor/Rule.pm @@ -140,9 +140,6 @@ sub insert { my $overwrite = $args{overwrite}; my $replace = $args{replace}; - my $target = $rule->target; - my $is_role = $rule->is_role; - if ($replace) { my (@remove, $replaced); @@ -166,6 +163,7 @@ sub insert { return 1 if $replaced; } else { # Replace only an existent rule + my $target = $rule->target; for my $i (0 .. $#$list) { my $old_target = $list->[$i]->target;