else if (*type == IoTYPE_RDONLY) {
            /*SUPPRESS 530*/
            for (type++; isSPACE(*type); type++) ;
            mode[0] = 'r';
#ifdef HAS_STRLCAT
            if (in_raw)
                strlcat(mode, "b", PERL_MODE_MAX);
            else if (in_crlf)
                strlcat(mode, "t", PERL_MODE_MAX);
#else
            if (in_raw)
                strcat(mode, "b");
            else if (in_crlf)
                strcat(mode, "t");
#endif
            if (*type == '&') {
                goto duplicity;
            }
            if (*type == IoTYPE_STD && (!type[1] || isSPACE(type[1]) || type[1] == ':')) {