diff options
| author | Larry Wall <lwall@netlabs.com> | 1992-06-08 04:49:57 +0000 |
|---|---|---|
| committer | Larry Wall <lwall@netlabs.com> | 1992-06-08 04:49:57 +0000 |
| commit | 7b0cd887a13445cfae2c23db0b7efd05a47758e6 (patch) | |
| tree | 5abe4d237618909ba934ed172833918807ad6ca4 /os2 | |
| parent | bee1dbe28446f1b188ddf14e24e7f65771825d8f (diff) | |
| download | perl-7b0cd887a13445cfae2c23db0b7efd05a47758e6.tar.gz | |
perl 4.0 patch 27: patch #20, continued
See patch #20.
Diffstat (limited to 'os2')
| -rw-r--r-- | os2/mktemp.c | 29 |
1 files changed, 1 insertions, 28 deletions
diff --git a/os2/mktemp.c b/os2/mktemp.c index e70507aaee..a14bc63f16 100644 --- a/os2/mktemp.c +++ b/os2/mktemp.c @@ -1,28 +1 @@ -/* MKTEMP.C using TMP environment variable */ - -#include <stdio.h> -#include <stdlib.h> -#include <string.h> -#include <io.h> - -void Mktemp(char *file) -{ - char fname[32], *tmp; - - tmp = getenv("TMP"); - - if ( tmp != NULL ) - { - strcpy(fname, file); - strcpy(file, tmp); - - if ( file[strlen(file) - 1] != '\\' ) - strcat(file, "\\"); - - strcat(file, fname); - } - - mktemp(file); -} - -/* End of MKTEMP.C */ +(deprecated) |