From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 7 Jan 2002 23:45:05 +0000 (+0000)
Subject: No normalization form DNF.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=93deb89398a017c04e6e35182b4aa67d75f172d0;p=p5sagit%2Fp5-mst-13.2.git

No normalization form DNF.

p4raw-id: //depot/perl@14129
---

diff --git a/ext/Unicode/Normalize/Normalize.pm b/ext/Unicode/Normalize/Normalize.pm
index f416c58..40d326f 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]) :