usr.bin/perl/toke.c

2754 Perl_load_charnames(pTHX_ SV * char_name, const char * context,
2759      *  char_name   a name to look up which is the reason for loading this
2760      *  context     'char_name' in the context in the input in which it appears
2804     res = new_constant( NULL, 0, "charnames", char_name, NULL,
2849     SV* char_name;
2876     char_name = newSVpvn_flags(s, e - s, (is_utf8) ? SVf_UTF8 : 0);
2878     if (!SvCUR(char_name)) {
2879         SvREFCNT_dec_NN(char_name);
2887     table = load_charnames(char_name, context, context_len, error_msg);
2893     res = new_constant( NULL, 0, "charnames", char_name, NULL,
2896         *error_msg = Perl_form(aTHX_ "Unknown charname '%s'", SvPVX(char_name));