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

diff --git a/lib/LaTeX/TikZ/Set/Mod.pm b/lib/LaTeX/TikZ/Set/Mod.pm
index 82c5510..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, @_ ],
   ));
  }
 
@@ -133,7 +133,7 @@ MOD:
   if (@mods) {
    $body = LaTeX::TikZ::Scope->new
                              ->mod(map $_->apply($tikz), @mods)
-                             ->body($body)
+                             ->body($body);
   }
 
   $body;