This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
l1_char_class_tab.h: Remove multi-char fold targets
[perl5.git] / regen / mk_PL_charclass.pl
index 5b2cca7..b616f85 100644 (file)
@@ -71,7 +71,7 @@ while (<$fh>) {
     my $from = hex $hex_from;
 
     # Perl only deals with C and F folds
-    next if $fold_type ne 'C' and $fold_type ne 'F';
+    next if $fold_type ne 'C'; # Not currently used: && $fold_type ne 'F';
 
     # Get each code point in the range that participates in this line's fold.
     # The hash has keys of each code point in the range, and values of what it