This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Unicode::UCD: Fix synopsis
authorKarl Williamson <khw@cpan.org>
Thu, 22 Jan 2015 22:06:43 +0000 (15:06 -0700)
committerKarl Williamson <khw@cpan.org>
Wed, 11 Feb 2015 06:06:18 +0000 (23:06 -0700)
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

charclass_invlists.h
lib/Unicode/UCD.pm

index a3d8d1b..603ffef 100644 (file)
@@ -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
index 252bebc..393de35 100644 (file)
@@ -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);