The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
/* Check whether a character is unsafe by the definition of RFC 3986 */
/* This file is automatically generated by tool/uri_unsafe.PL */
static int
is_uri_unsafe(char const c) {
    switch((unsigned char)c) {
    case 0x2D: return 0; /* - */
    case 0x2E: return 0; /* . */
    case 0x30: return 0; /* 0 */
    case 0x31: return 0; /* 1 */
    case 0x32: return 0; /* 2 */
    case 0x33: return 0; /* 3 */
    case 0x34: return 0; /* 4 */
    case 0x35: return 0; /* 5 */
    case 0x36: return 0; /* 6 */
    case 0x37: return 0; /* 7 */
    case 0x38: return 0; /* 8 */
    case 0x39: return 0; /* 9 */
    case 0x41: return 0; /* A */
    case 0x42: return 0; /* B */
    case 0x43: return 0; /* C */
    case 0x44: return 0; /* D */
    case 0x45: return 0; /* E */
    case 0x46: return 0; /* F */
    case 0x47: return 0; /* G */
    case 0x48: return 0; /* H */
    case 0x49: return 0; /* I */
    case 0x4A: return 0; /* J */
    case 0x4B: return 0; /* K */
    case 0x4C: return 0; /* L */
    case 0x4D: return 0; /* M */
    case 0x4E: return 0; /* N */
    case 0x4F: return 0; /* O */
    case 0x50: return 0; /* P */
    case 0x51: return 0; /* Q */
    case 0x52: return 0; /* R */
    case 0x53: return 0; /* S */
    case 0x54: return 0; /* T */
    case 0x55: return 0; /* U */
    case 0x56: return 0; /* V */
    case 0x57: return 0; /* W */
    case 0x58: return 0; /* X */
    case 0x59: return 0; /* Y */
    case 0x5A: return 0; /* Z */
    case 0x5F: return 0; /* _ */
    case 0x61: return 0; /* a */
    case 0x62: return 0; /* b */
    case 0x63: return 0; /* c */
    case 0x64: return 0; /* d */
    case 0x65: return 0; /* e */
    case 0x66: return 0; /* f */
    case 0x67: return 0; /* g */
    case 0x68: return 0; /* h */
    case 0x69: return 0; /* i */
    case 0x6A: return 0; /* j */
    case 0x6B: return 0; /* k */
    case 0x6C: return 0; /* l */
    case 0x6D: return 0; /* m */
    case 0x6E: return 0; /* n */
    case 0x6F: return 0; /* o */
    case 0x70: return 0; /* p */
    case 0x71: return 0; /* q */
    case 0x72: return 0; /* r */
    case 0x73: return 0; /* s */
    case 0x74: return 0; /* t */
    case 0x75: return 0; /* u */
    case 0x76: return 0; /* v */
    case 0x77: return 0; /* w */
    case 0x78: return 0; /* x */
    case 0x79: return 0; /* y */
    case 0x7A: return 0; /* z */
    case 0x7E: return 0; /* ~ */
    default: return 1;
    }
} /* is_uri_unsafe */