In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/9e65c3f47e483ee7e33b5d748a06f4addd830d60?hp=5e6bcc013e2f55d2b3f79500ff90cb9cde5bea39>
- Log ----------------------------------------------------------------- commit 9e65c3f47e483ee7e33b5d748a06f4addd830d60 Author: Karl Williamson <[email protected]> Date: Fri Oct 4 21:15:01 2013 -0600 mktables: Verify input files' version Since Unicode 3.2, all Unicode database source files (except unfortunately, the most important one, UCD.txt), have their first lines be identifying information, their name and version number. This commit checks that the version is the expected one. This should prevent the database from being out-of-sync. Perl changes the names of some files so that they are distinct on DOS filesystems, so we can't easily check that the name in the file is the same as the name of the file. M lib/unicore/mktables commit 7cf6c614c5521647b723670050fa842e59eb47b6 Author: Karl Williamson <[email protected]> Date: Fri Oct 4 21:05:09 2013 -0600 Bump Unicode version In commit a9c9e371c40cf388593577cf577494e91793f62a, I forgot to update the Unicode version in the file that states it. M lib/Unicode/UCD.t M lib/unicore/version ----------------------------------------------------------------------- Summary of changes: lib/Unicode/UCD.t | 2 +- lib/unicore/mktables | 9 +++++++++ lib/unicore/version | 2 +- 3 files changed, 11 insertions(+), 2 deletions(-) diff --git a/lib/Unicode/UCD.t b/lib/Unicode/UCD.t index 4b0c227..275fbe1 100644 --- a/lib/Unicode/UCD.t +++ b/lib/Unicode/UCD.t @@ -343,7 +343,7 @@ is($bt->{AL}, 'Right-to-Left Arabic', 'AL is Right-to-Left Arabic'); # If this fails, then maybe one should look at the Unicode changes to see # what else might need to be updated. -is(Unicode::UCD::UnicodeVersion, '6.2.0', 'UnicodeVersion'); +is(Unicode::UCD::UnicodeVersion, '6.3.0', 'UnicodeVersion'); use Unicode::UCD qw(compexcl); diff --git a/lib/unicore/mktables b/lib/unicore/mktables index 9fd86e6..6211028 100644 --- a/lib/unicore/mktables +++ b/lib/unicore/mktables @@ -2455,6 +2455,15 @@ END return 0; } $handle{$addr} = $file_handle; # Cache the open file handle + + if ($v_version ge v3.2.0 && lc($file) ne 'unicodedata.txt') { + $_ = <$file_handle>; + if ($_ !~ / - $string_version \. /x) { + chomp; + $_ =~ s/^#\s*//; + die Carp::my_carp("File '$file' is version '$_'. It should be version $string_version"); + } + } } if ($verbosity >= $PROGRESS) { diff --git a/lib/unicore/version b/lib/unicore/version index 6abaeb2..798e389 100644 --- a/lib/unicore/version +++ b/lib/unicore/version @@ -1 +1 @@ -6.2.0 +6.3.0 -- Perl5 Master Repository
