Ticket #2936: Entity.pm-relative-templates.patch

tools/entity/Entity.pm

@@ -83 +83 @@
             }
         }
         $base->{' content'} = join ' ', @t;
+    } elsif ($new->{'@op'}) {
+        my $op = $new->{'@op'}{' content'};
+        my $op1 = $base->{' content'};
+        my $op2 = $new->{' content'};
+        if ($op eq 'add') {
+            $base->{' content'} = $op1 + $op2;
+        }
+        elsif ($op eq 'mul') {
+            $base->{' content'} = $op1 * $op2;
+        }
+        else {
+            die "Invalid operator '$op'";
+        }
     } else {
         $base->{' content'} = $new->{' content'};
     }