This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Unicode::UCD: Handle old Unicode Blocks file format
authorKarl Williamson <khw@cpan.org>
Sat, 27 Jun 2015 21:31:31 +0000 (15:31 -0600)
committerKarl Williamson <khw@cpan.org>
Wed, 29 Jul 2015 04:15:55 +0000 (22:15 -0600)
charclass_invlists.h
lib/Unicode/UCD.pm
regcharclass.h

index 8f21b01..4d6358b 100644 (file)
@@ -99479,7 +99479,7 @@ static const UV XPosixXDigit_invlist[] = { /* for EBCDIC POSIX-BC */
 #endif /* EBCDIC POSIX-BC */
 
 /* Generated from:
- * b32261c9bf79e5e25de72f2af500acf5dfa262eb974f43af2a1d4b53e13b248c lib/Unicode/UCD.pm
+ * 66700a18908cbab24510556f945f0ccdc071f0ad31506ac309adaf12bfb1ba99 lib/Unicode/UCD.pm
  * ae98bec7e4f0564758eed81eca5015481ba32581f8a735a825b71b3bba714450 lib/unicore/ArabicShaping.txt
  * 1687fe5994eb7e5c0dab8503fc2a1b3b479d91af9d3b8055941c9bd791f7d0b5 lib/unicore/BidiBrackets.txt
  * 350d1302116194b0b21def287434b55c5088098fbc726e879f7420a391965643 lib/unicore/BidiMirroring.txt
index bbf87e4..b66ff9e 100644 (file)
@@ -876,6 +876,10 @@ sub _charblocks {
            local $_;
            local $/ = "\n";
            while (<$BLOCKSFH>) {
+
+                # Old versions used a different syntax to mark the range.
+                $_ =~ s/;\s+/../ if $v_unicode_version lt v3.1.0;
+
                if (/^([0-9A-F]+)\.\.([0-9A-F]+);\s+(.+)/) {
                    my ($lo, $hi) = (hex($1), hex($2));
                    my $subrange = [ $lo, $hi, $3 ];
index 93eb150..dd24d39 100644 (file)
 #endif /* H_REGCHARCLASS */
 
 /* Generated from:
- * b32261c9bf79e5e25de72f2af500acf5dfa262eb974f43af2a1d4b53e13b248c lib/Unicode/UCD.pm
+ * 66700a18908cbab24510556f945f0ccdc071f0ad31506ac309adaf12bfb1ba99 lib/Unicode/UCD.pm
  * ae98bec7e4f0564758eed81eca5015481ba32581f8a735a825b71b3bba714450 lib/unicore/ArabicShaping.txt
  * 1687fe5994eb7e5c0dab8503fc2a1b3b479d91af9d3b8055941c9bd791f7d0b5 lib/unicore/BidiBrackets.txt
  * 350d1302116194b0b21def287434b55c5088098fbc726e879f7420a391965643 lib/unicore/BidiMirroring.txt