Help for this page

Select Code to Download


  1. or download this
    PerlIO *
PerlIO_openn(pTHX_ const char *layers, const char *mode, int fd,
...
        if (*args == &PL_sv_undef)
            return PerlIO_tmpfile();
...
  2. or download this
    PerlIO *
PerlIO_openn(pTHX_ const char *layers, const char *mode, int fd,
...
    dVAR;
    if (!f && narg == 1 && *args == &PL_sv_undef) {
        if ((f = PerlIO_tmpfile())) {
  3. or download this
    open(my $fh, '+>', $fn // undef)