Revision 53f4de8f
Von Moritz Bunkus vor mehr als 15 Jahren hinzugefügt
| SL/Template.pm | ||
|---|---|---|
| 384 | 384 |
if ($operator_type) {
|
| 385 | 385 |
my $compare_to = $bareword ? $self->_get_loop_variable($bareword, 0, @indices) : $quoted_word; |
| 386 | 386 |
if ($operator_type eq '=') {
|
| 387 |
$hit = ($not && !($value eq $compare_to)) || (!$not && ($value eq $compare_to)); |
|
| 387 |
$hit = ($not && !($value eq $compare_to)) || (!$not && ($value eq $compare_to));
|
|
| 388 | 388 |
} else {
|
| 389 |
$hit = ($not && !($value =~ m/$compare_to/)) || (!$not && ($value =~ m/$compare_to/));
|
|
| 389 |
$hit = ($not && !($value =~ m/$compare_to/i)) || (!$not && ($value =~ m/$compare_to/i));
|
|
| 390 | 390 |
} |
| 391 | 391 |
|
| 392 | 392 |
} else {
|
| 393 |
$hit = ($not && ! $value) || (!$not && $value); |
|
| 393 |
$hit = ($not && ! $value) || (!$not && $value);
|
|
| 394 | 394 |
} |
| 395 | 395 |
|
| 396 | 396 |
if ($hit) {
|
Auch abrufbar als: Unified diff
Test auf Übereinstimmung mit regulären Ausdrücken in <%if...%>
Blöcken ohne Berücksichtigung der Großund Kleinschreibung.