Fix layer folding

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

diff --git a/lib/LaTeX/TikZ/Scope.pm b/lib/LaTeX/TikZ/Scope.pm
index c07225962824d95eb027c538d991c3e09b18c79d..c048a1c700fdbd9bcba99b84d990d30f84d54b1a 100644 (file)
--- a/lib/LaTeX/TikZ/Scope.pm
+++ b/lib/LaTeX/TikZ/Scope.pm
@@ -181,7 +181,23 @@ sub fold {
     $right->_mods_cache,
    );
 
-   if (@$common) {
+   my $has_different_layers;
+   for (@$only_left) {
+    if ($_->type eq 'layer') {
+     $has_different_layers = 1;
+     last;
+    }
+   }
+   unless ($has_different_layers) {
+    for (@$only_right) {
+     if ($_->type eq 'layer') {
+      $has_different_layers = 1;
+      last;
+     }
+    }
+   }
+
+   if (!$has_different_layers and @$common) {
     my $x = $left->new
                  ->mod(@$only_left)
                  ->body($left->_body);