diff options
| author | Karl Williamson <khw@cpan.org> | 2015-09-21 11:39:57 -0600 |
|---|---|---|
| committer | Karl Williamson <khw@cpan.org> | 2015-10-11 10:48:31 -0600 |
| commit | 3143528c9e4c120291d9fc3318bc8df252717430 (patch) | |
| tree | 5b20f60842d64925611e4ce3fe3f9c64f5573a89 /lib | |
| parent | f7294c1de1c3c59464c4282dfed49996b3821035 (diff) | |
| download | perl-3143528c9e4c120291d9fc3318bc8df252717430.tar.gz | |
utf8_heavy.pl: Clarify comment
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/utf8_heavy.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/utf8_heavy.pl b/lib/utf8_heavy.pl index 51137b5623..0d2e662453 100644 --- a/lib/utf8_heavy.pl +++ b/lib/utf8_heavy.pl @@ -289,8 +289,8 @@ sub _loose_name ($) { if ($parts[1] =~ s/^-//) { # If numerator is also negative, convert the - # whole thing to positive, or move the minus to - # the numerator + # whole thing to positive, else move the minus + # to the numerator if ($parts[0] !~ s/^-//) { $parts[0] = '-' . $parts[0]; } |