summaryrefslogtreecommitdiff
path: root/utf8.c
diff options
context:
space:
mode:
authorKarl Williamson <public@khwilliamson.com>2011-05-11 21:13:30 -0600
committerKarl Williamson <public@khwilliamson.com>2011-05-19 10:31:20 -0600
commit4d5702a21c6c7b7549bde6467c6587df73369009 (patch)
treeff16a955ede762f18131c0ca65d60a7397155479 /utf8.c
parent64870e056a120beee73d9952c055e61d91973578 (diff)
downloadperl-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.c16
1 files changed, 0 insertions, 16 deletions
diff --git a/utf8.c b/utf8.c
index 603ad3f808..6bb33276f7 100644
--- a/utf8.c
+++ b/utf8.c
@@ -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,