X-Git-Url: http://git.vpit.fr/?p=perl%2Fmodules%2FLaTeX-TikZ.git;a=blobdiff_plain;f=lib%2FLaTeX%2FTikZ%2FSet.pm;fp=lib%2FLaTeX%2FTikZ%2FSet.pm;h=a6dd87f034b776dfbef347cb0bee2b518728f726;hp=e673097ec2f20e7a9349e8cabff8cdef3cfb84c3;hb=2cb1b719d9727a55a43758c1c3aaea2667c619f2;hpb=5d8e597c1d1be20b1098403e6bbb80d70e7fe566

diff --git a/lib/LaTeX/TikZ/Set.pm b/lib/LaTeX/TikZ/Set.pm
index e673097..a6dd87f 100644
--- a/lib/LaTeX/TikZ/Set.pm
+++ b/lib/LaTeX/TikZ/Set.pm
@@ -94,9 +94,10 @@ around 'draw' => sub {
 
  my @mods = $cxt->effective_mods;
  if (@mods) {
-  $body = LaTeX::TikZ::Scope->new
-                            ->mod(map $_->apply($tikz), @mods)
-                            ->body($body);
+  $body = LaTeX::TikZ::Scope->new(
+   mods => [ map $_->apply($tikz), @mods ],
+   body => $body,
+  );
  }
 
  $body;