Select Code to Download

        if (S_ISREG(PL_statbuf.st_mode)
        && cando(S_IRUSR,TRUE,&PL_statbuf)
...
        xfound = tmpbuf;        /* bingo! */
        break;
        }

package sx::y;
$sx::y = $VERSION = 0.01;
1;