From 93deb89398a017c04e6e35182b4aa67d75f172d0 Mon Sep 17 00:00:00 2001 From: Jarkko Hietaniemi Date: Mon, 7 Jan 2002 23:45:05 +0000 Subject: [PATCH] No normalization form DNF. p4raw-id: //depot/perl@14129 --- ext/Unicode/Normalize/Normalize.pm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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]) : -- 1.8.3.1