diff options
| author | Karl Williamson <public@khwilliamson.com> | 2011-09-30 12:04:09 -0600 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2011-10-01 09:15:32 -0600 |
| commit | e3136cf9c75dca4f182c2a8c635f8df7d0870483 (patch) | |
| tree | c6852c0ac2859fd0f52f8132cc73bc92d590079b /regen | |
| parent | b1909af7f2553810ddd7eff3b7b1ee5bca1cbe58 (diff) | |
| download | perl-e3136cf9c75dca4f182c2a8c635f8df7d0870483.tar.gz | |
mk_PL_charclass.pl: Accept Unicode 6.1 syntax
The file read by this has a slightly changed format in 6.1
Diffstat (limited to 'regen')
| -rw-r--r-- | regen/mk_PL_charclass.pl | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/regen/mk_PL_charclass.pl b/regen/mk_PL_charclass.pl index c799dc2a7b..a2f837fefc 100644 --- a/regen/mk_PL_charclass.pl +++ b/regen/mk_PL_charclass.pl @@ -63,8 +63,9 @@ while (<$fh>) { # Lines look like (without the initial '#' #0130; F; 0069 0307; # LATIN CAPITAL LETTER I WITH DOT ABOVE - my ($line, $comment) = split / \s+ \# \s+ /x, $_; - next if $line eq "" || substr($line, 0, 1) eq '#'; + # Get rid of comments, ignore blank or comment-only lines + my $line = $_ =~ s/ (?: \s* \# .* )? $ //rx; + next unless length $line; my ($hex_from, $fold_type, @folded) = split /[\s;]+/, $line; my $from = hex $hex_from; |