Always call ->assert_valid after ->coerce

[perl/modules/LaTeX-TikZ.git] / lib / LaTeX / TikZ / Set / Arc.pm

diff --git a/lib/LaTeX/TikZ/Set/Arc.pm b/lib/LaTeX/TikZ/Set/Arc.pm
index 3ac58e01d6536ee27449076ea18f05de6422ac81..3bbe83d83074b8d3fc8d7009b1f9da7a8b624927 100644 (file)
--- a/lib/LaTeX/TikZ/Set/Arc.pm
+++ b/lib/LaTeX/TikZ/Set/Arc.pm
@@ -37,6 +37,7 @@ use LaTeX::TikZ::Interface arc => sub {
 
  for ($a, $b, $c) {
   my $p = $ltp_tc->coerce($_);
+  $ltp_tc->assert_valid($p);
   $_ = Math::Complex->make($p->x, $p->y);
  }