In perl.git, the branch blead has been updated <http://perl5.git.perl.org/perl.git/commitdiff/d25148c1bd1f4c26569fbfdf34270fa3f8f9d6a3?hp=eb254f2672a985ec3c34810f624f36c18fc35fc7>
- Log ----------------------------------------------------------------- commit d25148c1bd1f4c26569fbfdf34270fa3f8f9d6a3 Author: Karl Williamson <[email protected]> Date: Thu Jan 22 15:06:43 2015 -0700 Unicode::UCD: Fix synopsis Instead of using a constant code point in some of the lines, use the $variable that is used in other lines Spotted by Dagfinn Ilmari Mannsåker ----------------------------------------------------------------------- Summary of changes: charclass_invlists.h | 2 +- lib/Unicode/UCD.pm | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/charclass_invlists.h b/charclass_invlists.h index a3d8d1b..603ffef 100644 --- a/charclass_invlists.h +++ b/charclass_invlists.h @@ -50101,7 +50101,7 @@ static const UV XPosixXDigit_invlist[] = { /* for EBCDIC POSIX-BC */ #endif /* EBCDIC POSIX-BC */ /* Generated from: - * 05248de9406577906c2538aea4e7f3c4ca18acba517cc078207e9f7acbb3fbc6 lib/Unicode/UCD.pm + * 021d70af3d16a2ef4537c7cc60fa406179e07af3c260e61c346f51eb6430981a lib/Unicode/UCD.pm * 827aa7ee45ca9fe09f3e0969a5a27a69ce58a6c7134548125266210018d27b49 lib/unicore/ArabicShaping.txt * 3748fbbe9d280a9da700bfd0c28beaaf6f32a67ec263a124fcb0a4095a30fae5 lib/unicore/BidiBrackets.txt * 3925329c2432fa7248b2e180cddcedb9a4f9eafbbb10ab9e105eaf833043b2fb lib/unicore/BidiMirroring.txt diff --git a/lib/Unicode/UCD.pm b/lib/Unicode/UCD.pm index 252bebc..393de35 100644 --- a/lib/Unicode/UCD.pm +++ b/lib/Unicode/UCD.pm @@ -43,13 +43,13 @@ Unicode::UCD - Unicode character database my $charinfo = charinfo($codepoint); use Unicode::UCD 'casefold'; - my $casefold = casefold(0xFB00); + my $casefold = casefold($codepoint); use Unicode::UCD 'all_casefolds'; my $all_casefolds_ref = all_casefolds(); use Unicode::UCD 'casespec'; - my $casespec = casespec(0xFB00); + my $casespec = casespec($codepoint); use Unicode::UCD 'charblock'; my $charblock = charblock($codepoint); -- Perl5 Master Repository
