diff options
author | Karl Williamson <public@khwilliamson.com> | 2011-05-11 21:13:30 -0600 |
---|---|---|
committer | Karl Williamson <public@khwilliamson.com> | 2011-05-19 10:31:20 -0600 |
commit | 4d5702a21c6c7b7549bde6467c6587df73369009 (patch) | |
tree | ff16a955ede762f18131c0ca65d60a7397155479 /utf8.c | |
parent | 64870e056a120beee73d9952c055e61d91973578 (diff) | |
download | perl-4d5702a21c6c7b7549bde6467c6587df73369009.tar.gz |
utf8.c: Remove soon-to-be-obsoleted comment
This comment will no longer apply, as the code it talked about is
moving into swash_init().
Diffstat (limited to 'utf8.c')
-rw-r--r-- | utf8.c | 16 |
1 files changed, 0 insertions, 16 deletions
@@ -1853,22 +1853,6 @@ Perl_to_utf8_case(pTHX_ const U8 *p, U8* ustrp, STRLEN *lenp, if (!*swashp) /* load on-demand */ *swashp = swash_init("utf8", normal, &PL_sv_undef, 4, 0); - /* This is the beginnings of a skeleton of code to read the info section - * that is in all the swashes in case we ever want to do that, so one can - * read things whose maps aren't code points, and whose default if missing - * is not to the code point itself. This was just to see if it actually - * worked. Details on what the possibilities are are in perluniprops.pod - HV * const hv = get_hv("utf8::SwashInfo", 0); - if (hv) { - SV **svp; - svp = hv_fetch(hv, (const char*)normal, strlen(normal), FALSE); - const char *s; - - HV * const this_hash = SvRV(*svp); - svp = hv_fetch(this_hash, "type", strlen("type"), FALSE); - s = SvPV_const(*svp, len); - } - }*/ if (special) { /* It might be "special" (sometimes, but not always, |