Lines Matching refs:tpath
1840 char *p = PerlEnv_getenv("TMP"), *tpath; in settmppath() local
1847 tpath = (char *)malloc(len + strlen(TMPPATH1) + 2); in settmppath()
1848 if (tpath) { in settmppath()
1849 strcpy(tpath, p); in settmppath()
1850 tpath[len] = '/'; in settmppath()
1851 strcpy(tpath + len + 1, TMPPATH1); in settmppath()
1852 tmppath = tpath; in settmppath()
5047 char *p = PerlEnv_getenv("TMP"), *tpath; in my_tmpnam() local
5051 tpath = tempnam(p, "pltmp"); in my_tmpnam()
5052 if (str && tpath) { in my_tmpnam()
5053 strcpy(str, tpath); in my_tmpnam()
5058 return tpath; in my_tmpnam()