Change 14129 by jhi@alpha on 2002/01/07 23:45:05
No normalization form DNF.
Affected files ...
.... //depot/perl/ext/Unicode/Normalize/Normalize.pm#3 edit
Differences ...
==== //depot/perl/ext/Unicode/Normalize/Normalize.pm#3 (text) ====
Index: perl/ext/Unicode/Normalize/Normalize.pm
--- perl/ext/Unicode/Normalize/Normalize.pm.~1~ Mon Jan 7 17:00:05 2002
+++ perl/ext/Unicode/Normalize/Normalize.pm Mon Jan 7 17:00:05 2002
@@ -34,7 +34,7 @@
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]) :
End of Patch.
