Fix another case sensitivity error

diff --git a/yarrg/web/check_capacitystring b/yarrg/web/check_capacitystring
index 321d7540fcf31e9bf953c8574e30015de32351d4..52eab28264836ca8208e49a82a16db9beb8e3597 100644 (file)
--- a/yarrg/web/check_capacitystring
+++ b/yarrg/web/check_capacitystring
@@ -152,7 +152,7 @@ my $parse_term= sub {
        $first_term= 0;
 };
 
-while ($string =~ s/^(.*?)(\bminus\b|-|\bplus\b|\+)//) {
+while ($string =~ s/^(.*?)(\bminus\b|-|\bplus\b|\+)//i) {
        my ($lhs)= ($1);
        my @nextsign= $2 =~ m/^p|^\+/ ? (+1,'+') : (-1,'-');
        $show_answer= 1;