Fix "an UTF"/"an union" with "a UTF"/"a union", etc

This commit is contained in:
Pragmatic Software 2015-09-12 06:18:34 -07:00
parent ddeb70f1e3
commit d3944d82d9
1 changed files with 2 additions and 0 deletions

View File

@ -65,6 +65,8 @@ foreach my $arg (@ARGV) {
my @quotes;
$output =~ s/(?:\"((?:\\\"|(?!\").)*)\")/push @quotes, $1; '"' . ('-' x length $1) . '"'/ge;
$output =~ s/\ban un/a un/g;
$output =~ s/\ban UTF/a UTF/g;
$output =~ s/the value the expression/the value of the expression/g;
$output =~ s/the value the member/the value of the member/g;
$output =~ s/the value the/the/g;