X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLaTeX-TikZ.git;a=blobdiff_plain;f=lib%2FLaTeX%2FTikZ%2FSet%2FArc.pm;h=3bbe83d83074b8d3fc8d7009b1f9da7a8b624927;hp=3ac58e01d6536ee27449076ea18f05de6422ac81;hb=a2871e9a7be49f59dab5d64afab543404b1e13f4;hpb=1918fdf5100058cd6a4281bc8b04ec8977841e5e

diff --git a/lib/LaTeX/TikZ/Set/Arc.pm b/lib/LaTeX/TikZ/Set/Arc.pm
index 3ac58e0..3bbe83d 100644
--- 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);
  }