LT::Functor: don't process the mods at all if the new set is the same as the old one

diff --git a/lib/LaTeX/TikZ/Functor.pm b/lib/LaTeX/TikZ/Functor.pm
index efa66a095283d48de76a5c120eded45e40946d40..4ccfd32eb289e17e93caa521e95718c892cc6153 100644 (file)
--- a/lib/LaTeX/TikZ/Functor.pm
+++ b/lib/LaTeX/TikZ/Functor.pm
@@ -144,9 +144,10 @@ sub new {
     }
    }
   }
     }
    }
   }

-  my $new_set = $rule ? $rule->handler->($self, $set, @_)
-                      : $set;
-  my $is_new  = $new_set ne $set;
+  return $set unless $rule;
+
+  my $new_set = $rule->handler->($self, $set, @_);
+  return $set if $new_set eq $set;

 
   my @new_mods;
 MOD:
 
   my @new_mods;
 MOD:


@@ -163,8 +164,7 @@ MOD:
    push @new_mods, $rule ? $rule->handler->($self, $mod, @_)
                          : $mod;
   }
    push @new_mods, $rule ? $rule->handler->($self, $mod, @_)
                          : $mod;
   }

-
-  $new_set->mod(@new_mods) if $is_new;
+  $new_set->mod(@new_mods);

 
   return $new_set;
  }, $class;
 
   return $new_set;
  }, $class;