fixed contains operator to handle arrays with strings with special chars

lib/Template/Liquid/Condition.pm

@@ -157,10 +157,14 @@ sub contains {
     my $_r = $s->{template}{context}->get($r);
     $l = $_l if defined $_l;
     $r = $_r if defined $_r;
-    $r = quotemeta $r;
     return if defined $r && !defined $l;
     return defined($l->{$r})       ? 1 : !1 if ref $l eq 'HASH';
-    return (grep { $_ eq $r } @$l) ? 1 : !1 if ref $l eq 'ARRAY';
+    if (ref $l eq 'ARRAY') {
+      for my $i (0 .. $#$l) {
+        return 1 if $l->[$i] eq $r;
+      }
+      return !1;
+    }
     return $l =~ qr[${r}]          ? 1 : !1;
 }
 

t/0200_tags/02006_if.t

@@ -93,13 +93,25 @@ is( Template::Liquid->parse(
 {% if 'This string' != 'This string' %}Yep.{% endif %}
 INPUT
 
+EXPECTED
+is( Template::Liquid->parse(
+        <<'INPUT')->render(email => 'test@example.com'), <<'EXPECTED', q[assigned list contains email]);
+{% assign list = "foo@bar.com, another@example.com, test@example.com" | split: ", " %}{% if list contains email %}Found.{% endif %}
+INPUT
+Found.
 EXPECTED
 is( Template::Liquid->parse(
         <<'INPUT')->render(list => [qw[some other value]]), <<'EXPECTED', q[list contains 'other']);
 {% if list contains 'other' %}Yep.{% endif %}
 INPUT
 Yep.
 EXPECTED
+is( Template::Liquid->parse(
+        <<'INPUT')->render(foo => 'bar'), <<'EXPECTED', q[assigned list  contains foo]);
+{% assign list = "a, b, c, bar" | split : ", " %}{% if list contains foo %}Yep.{% endif %}
+INPUT
+Yep.
+EXPECTED
 is( Template::Liquid->parse(
         <<'INPUT')->render(list => [qw[some other value]]), <<'EXPECTED', q[list contains 'missing element']);
 {% if list contains 'missing element' %}Yep.{% endif %}