Cope with swapped operands in template operators

Perl may pass swapped operands to ensure the first one is always an object
that implements the relevant operator.

1 files changed, 5 insertions, 3 deletions

diff --git a/perllib/FixMyStreet/Template/Variable.pm b/perllib/FixMyStreet/Template/Variable.pm
index 9b5a0fcc4..0142a4db5 100644
--- a/perllib/FixMyStreet/Template/Variable.pm
+++ b/perllib/FixMyStreet/Template/Variable.pm
@@ -8,13 +8,15 @@ sub op_factory {
     my ($op) = @_;
 
     return eval q|sub {
-        my ($self, $str) = @_;
+        my ($self, $str, $swapped) = @_;
 
         if ( ref $str eq __PACKAGE__) {
-            return $self->{value} | . $op . q| $str->{value};
+            return $self->{value} | . $op . q| $str->{value} unless $swapped;
+            return $str->{value} | . $op . q| $self->{value};
         }
         else {
-            return $self->{value} | . $op . q| $str;
+            return $self->{value} | . $op . q| $str unless $swapped;
+            return $str | . $op . q| $self->{value};
         }
     }|;
 }