Unicode::UCD doc nit from Andreas Koenig.

p4raw-id: //depot/perl@20231

diff --git a/lib/Unicode/UCD.pm b/lib/Unicode/UCD.pm
index 51d86da..51d37b5 100644 (file)
--- a/lib/Unicode/UCD.pm
+++ b/lib/Unicode/UCD.pm
@@ -31,7 +31,7 @@ Unicode::UCD - Unicode character database
     my $charblock  = charblock($codepoint);
 
     use Unicode::UCD 'charscript';
-    my $charscript = charblock($codepoint);
+    my $charscript = charscript($codepoint);
 
     use Unicode::UCD 'charblocks';
     my $charblocks = charblocks();