Test auf Übereinstimmung mit regulären Ausdrücken in <%if...%>-Blöcken ohne Berücksic...
authorMoritz Bunkus <m.bunkus@linet-services.de>
Wed, 1 Jul 2009 10:24:50 +0000 (12:24 +0200)
committerMoritz Bunkus <m.bunkus@linet-services.de>
Thu, 2 Jul 2009 10:53:57 +0000 (12:53 +0200)
SL/Template.pm

index c0f54cc..6dce41b 100644 (file)
@@ -384,13 +384,13 @@ sub parse_block {
       if ($operator_type) {
         my $compare_to = $bareword ? $self->_get_loop_variable($bareword, 0, @indices) : $quoted_word;
         if ($operator_type eq '=') {
-          $hit         = ($not && !($value eq $compare_to))    || (!$not && ($value eq $compare_to));
+          $hit         = ($not && !($value eq $compare_to))     || (!$not && ($value eq $compare_to));
         } else {
-          $hit         = ($not && !($value =~ m/$compare_to/)) || (!$not && ($value =~ m/$compare_to/));
+          $hit         = ($not && !($value =~ m/$compare_to/i)) || (!$not && ($value =~ m/$compare_to/i));
         }
 
       } else {
-        $hit           = ($not && ! $value)                    || (!$not &&  $value);
+        $hit           = ($not && ! $value)                     || (!$not &&  $value);
       }
 
       if ($hit) {