chiark / gitweb /
Fix another case sensitivity error
authorIan Jackson <ijackson@chiark.greenend.org.uk>
Wed, 28 Oct 2009 15:32:20 +0000 (15:32 +0000)
committerIan Jackson <ijackson@chiark.greenend.org.uk>
Wed, 28 Oct 2009 15:32:20 +0000 (15:32 +0000)
yarrg/web/check_capacitystring

index 321d754..52eab28 100644 (file)
@@ -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;