Hi,

Russ Allbery wrote:
> diff --git a/lib/Spelling.pm b/lib/Spelling.pm
> index 389ceef..62692fa 100644
> --- a/lib/Spelling.pm
> +++ b/lib/Spelling.pm
[...]
> +            my $correction = $CORRECTIONS{$lcword};
> +            if ($word =~ /^[A-Z]/) {
> +                $correction = ucfirst $correction;
> +            }

As this is still wrong for uppercase words I'm not sure it's even worth
trying to be smart by uppercasing the first character.

P.S. uppercasing every single word is a huge performance penalty, but
well... there's not much we can do about that.

Cheers,
-- 
Raphael Geissert - Debian Developer
www.debian.org - get.debian.net



-- 
To UNSUBSCRIBE, email to [email protected]
with a subject of "unsubscribe". Trouble? Contact [email protected]

Reply via email to