From 4d5702a21c6c7b7549bde6467c6587df73369009 Mon Sep 17 00:00:00 2001 From: Karl Williamson Date: Wed, 11 May 2011 21:13:30 -0600 Subject: [PATCH] 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(). --- utf8.c | 16 ---------------- 1 file changed, 16 deletions(-) diff --git a/utf8.c b/utf8.c index 603ad3f..6bb3327 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, -- 2.7.4