Stop drawing with the newline

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

diff --git a/lib/LaTeX/TikZ/Set/Mod.pm b/lib/LaTeX/TikZ/Set/Mod.pm
index 82c5510673cb0098816feb7c51cfc2449a3f40d9..76583402eb474d2b48a5d7f062b6da2d8e9ae41b 100644 (file)
--- a/lib/LaTeX/TikZ/Set/Mod.pm
+++ b/lib/LaTeX/TikZ/Set/Mod.pm
@@ -128,15 +128,9 @@ MOD:
 
   my @mods = $set->mods_unique;
 
-  my $body = $set->_set->draw($tikz);
-
-  if (@mods) {
-   $body = LaTeX::TikZ::Scope->new
-                             ->mod(map $_->apply($tikz), @mods)
-                             ->body($body)
-  }
-
-  $body;
+  LaTeX::TikZ::Scope->new
+                    ->mod(map $_->apply($tikz), @mods)
+                    ->body($set->_set->draw($tikz))
  }
 }