Permalink
Browse files

wordlist::preserve_case won't add extra spaces anymore

  • Loading branch information...
1 parent 4a37583 commit 29221b7f85f7a0359e618056ea12bdfcf64d0986 @semuel semuel committed Aug 30, 2011
Showing with 2 additions and 2 deletions.
  1. +2 −2 wordlist.pm
View
@@ -553,8 +553,8 @@ sub fix_text {
sub preserve_case {
my ($old, $new) = @_;
my $mask = uc $old ^ $old;
- uc $new | $mask .
- substr($mask, -1) x (length($new) - length($old))
+ $mask = substr($mask, 0, length $new);
+ return uc $new | $mask;
}
sub check_common {

0 comments on commit 29221b7

Please sign in to comment.