Select Code to Download

PerlIO *
PerlIO_openn(pTHX_ const char *layers, const char *mode, int fd,
...
    }
    return NULL;
}

...
if ((*type == IoTYPE_RDWR) && /* scary */
...
 mode[1] = *type++;
 writing = 1;
 }

else if (*type == IoTYPE_RDONLY) {
            /*SUPPRESS 530*/
...
                goto duplicity;
            }
            if (*type == IoTYPE_STD && (!type[1] || isSPACE(type[1]) |
+| type[1] == ':')) {

...
      else {
...
                }
                fp = PerlIO_openn(aTHX_ type,mode,-1,0,0,NULL,num_svs,
+svp);
            }

            if (!fp && type && *type && *type != ':' && !isIDFIRST(*ty
+pe))
               goto unknown_open_mode;
        }