Add a note in Unicode::UCD about the _getcode() function

being copy-n-pasted in charnames.pm. (spotted by Merijn)

p4raw-id: //depot/perl@22295

diff --git a/lib/Unicode/UCD.pm b/lib/Unicode/UCD.pm
index baafd1a..cce547b 100644 (file)
--- a/lib/Unicode/UCD.pm
+++ b/lib/Unicode/UCD.pm
@@ -125,6 +125,7 @@ you will need also the compexcl(), casefold(), and casespec() functions.
 
 =cut
 
+# NB: This function is duplicated in charnames.pm
 sub _getcode {
     my $arg = shift;