This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
No normalization form DNF.
[perl5.git] / ext / Unicode / Normalize / Normalize.pm
index f416c58..40d326f 100644 (file)
@@ -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]) :