diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-07 23:45:05 +0000 |
|---|---|---|
| committer | Jarkko Hietaniemi <jhi@iki.fi> | 2002-01-07 23:45:05 +0000 |
| commit | 93deb89398a017c04e6e35182b4aa67d75f172d0 (patch) | |
| tree | 301d255770c9b7e4713ca0e289f82bbaaa8435e7 /ext/Unicode/Normalize | |
| parent | 20d7225961318f2b7028b6ce66a378dd14d15ef1 (diff) | |
| download | perl-93deb89398a017c04e6e35182b4aa67d75f172d0.tar.gz | |
No normalization form DNF.
p4raw-id: //depot/perl@14129
Diffstat (limited to 'ext/Unicode/Normalize')
| -rw-r--r-- | ext/Unicode/Normalize/Normalize.pm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/ext/Unicode/Normalize/Normalize.pm b/ext/Unicode/Normalize/Normalize.pm index f416c580b8..40d326ff04 100644 --- a/ext/Unicode/Normalize/Normalize.pm +++ b/ext/Unicode/Normalize/Normalize.pm @@ -34,7 +34,7 @@ sub NFKC ($) { compose(reorder(decompose($_[0], COMPAT))) } sub normalize($$) { my $form = shift; - $form =~ s/NF//; + $form =~ s/^NF//; $form eq 'D' ? NFD ($_[0]) : $form eq 'C' ? NFC ($_[0]) : $form eq 'KD' ? NFKD($_[0]) : |