diff options
| author | Karl Williamson <public@khwilliamson.com> | 2010-10-10 15:01:28 -0600 |
|---|---|---|
| committer | Father Chrysostomos <sprout@cpan.org> | 2010-10-12 13:56:48 -0700 |
| commit | ebda590997f4b827b586721762588879e4b0289e (patch) | |
| tree | 21c9a0146045c3b75ac63415c07cfa26dfbf2fb4 /lib | |
| parent | f5817e0af49abd6460e2709985756e1e3d533661 (diff) | |
| download | perl-ebda590997f4b827b586721762588879e4b0289e.tar.gz | |
mktables: Add # XXX so can find experimental code
Diffstat (limited to 'lib')
| -rw-r--r-- | lib/unicore/mktables | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/lib/unicore/mktables b/lib/unicore/mktables index e8c35990a9..40b15ec9cb 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -10027,6 +10027,7 @@ sub filter_old_style_case_folding { # it takes no part in anything we do. my $to_output_simple; + # XXX # These are experimental, perhaps will need these to pass to regcomp.c to # handle the cases where for example the Kelvin sign character folds to k, # and in regcomp, we need to know which of the characters can have a @@ -10095,7 +10096,7 @@ sub filter_old_style_case_folding { $file->insert_adjusted_lines("$range; Simple_Case_Folding; $map"); } - # Experimental, see comment above + # XXX Experimental, see comment above if ($type ne 'S' && hex($range) >= 256) { # assumes range is 1 point my @folded = split ' ', $map; if (hex $folded[0] < 256 && @folded == 1) { @@ -10110,7 +10111,7 @@ sub filter_old_style_case_folding { } sub post_fold { - # Experimental, see comment above + # XXX Experimental, see comment above return; #local $to_trace = 1 if main::DEBUG; |