perl 3.0 patch #37 (combined patch)
[p5sagit/p5-mst-13.2.git] / os2 / mktemp.c
CommitLineData
d9d8d8de 1/* MKTEMP.C using TMP environment variable */
2
3#include <stdio.h>
4#include <stdlib.h>
5#include <string.h>
6#include <io.h>
7
8void Mktemp(char *file)
9{
10 char fname[32], *tmp;
11
12 tmp = getenv("TMP");
13
14 if ( tmp != NULL )
15 {
16 strcpy(fname, file);
17 strcpy(file, tmp);
18
19 if ( file[strlen(file) - 1] != '\\' )
20 strcat(file, "\\");
21
22 strcat(file, fname);
23 }
24
25 mktemp(file);
26}
27
28/* End of MKTEMP.C */