Remove string overloading completely for scope objects

[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 76583402eb474d2b48a5d7f062b6da2d8e9ae41b..8444fea9e9cda9cc95620e64864d849d99fd1f08 100644 (file)
--- a/lib/LaTeX/TikZ/Set/Mod.pm
+++ b/lib/LaTeX/TikZ/Set/Mod.pm
@@ -128,9 +128,15 @@ MOD:
 
   my @mods = $set->mods_unique;
 
-  LaTeX::TikZ::Scope->new
-                    ->mod(map $_->apply($tikz), @mods)
-                    ->body($set->_set->draw($tikz))
+  my $body = $set->_set->draw($tikz);
+
+  if (@mods) {
+   $body = LaTeX::TikZ::Scope->new
+                             ->mod(map $_->apply($tikz), @mods)
+                             ->body($body);
+  }
+
+  $body;
  }
 }