X-Git-Url: http://git.vpit.fr/?a=blobdiff_plain;f=lib%2FLaTeX%2FTikZ%2FSet%2FMod.pm;h=e98b98aecd579c4ada5ccaa10c52d355307f8927;hb=168a73df452b234d431ca830d3eb937bf89348ec;hp=76583402eb474d2b48a5d7f062b6da2d8e9ae41b;hpb=93bfe14caec156fc11587863a486220b986b6b2e;p=perl%2Fmodules%2FLaTeX-TikZ.git

diff --git a/lib/LaTeX/TikZ/Set/Mod.pm b/lib/LaTeX/TikZ/Set/Mod.pm
index 7658340..e98b98a 100644
--- a/lib/LaTeX/TikZ/Set/Mod.pm
+++ b/lib/LaTeX/TikZ/Set/Mod.pm
@@ -69,7 +69,7 @@ sub add {
  } else {
   require LaTeX::TikZ::Set::Sequence;
   $set->_set(LaTeX::TikZ::Set::Sequence->new(
-   kids => $kid,
+   kids => [ $kid, @_ ],
   ));
  }
 
@@ -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;
  }
 }