summaryrefslogtreecommitdiff
path: root/win32
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2003-06-03 08:04:39 +0000
committerJarkko Hietaniemi <jhi@iki.fi>2003-06-03 08:04:39 +0000
commit245468ebf9e9a3ea7e3600e1d4513bdc24459c6b (patch)
treea401369700632acba7b1a5611531bb2a5a9accec /win32
parentcab02963b8a3a0067a2c0c2a6edd2ef2af19842f (diff)
downloadperl-245468ebf9e9a3ea7e3600e1d4513bdc24459c6b.tar.gz
Retract #19667, #19660, #19659, #19658, #19657, #19656,
#19655, #19418; File::Temp no more used internally. Some parts of these will be salvaged later. p4raw-id: //depot/perl@19670
Diffstat (limited to 'win32')
-rw-r--r--win32/win32.c15
-rw-r--r--win32/win32iop.h1
2 files changed, 3 insertions, 13 deletions
diff --git a/win32/win32.c b/win32/win32.c
index 083e98e797..b022e0cfc0 100644
--- a/win32/win32.c
+++ b/win32/win32.c
@@ -2615,8 +2615,8 @@ win32_rewind(FILE *pf)
return;
}
-DllExport int
-win32_tmpfd(void)
+DllExport FILE*
+win32_tmpfile(void)
{
dTHX;
char prefix[MAX_PATH+1];
@@ -2640,20 +2640,11 @@ win32_tmpfd(void)
#endif
DEBUG_p(PerlIO_printf(Perl_debug_log,
"Created tmpfile=%s\n",filename));
- return fd;
+ return fdopen(fd, "w+b");
}
}
}
}
- return -1;
-}
-
-DllExport FILE*
-win32_tmpfile(void)
-{
- int fd = win32_tmpfd();
- if (fd >= 0)
- return win32_fdopen(fd, "w+b");
return NULL;
}
diff --git a/win32/win32iop.h b/win32/win32iop.h
index 1683e97e54..e835b2eea6 100644
--- a/win32/win32iop.h
+++ b/win32/win32iop.h
@@ -67,7 +67,6 @@ DllExport int win32_fseek(FILE *pf,Off_t offset,int origin);
DllExport int win32_fgetpos(FILE *pf,fpos_t *p);
DllExport int win32_fsetpos(FILE *pf,const fpos_t *p);
DllExport void win32_rewind(FILE *pf);
-DllExport int win32_tmpfd(void);
DllExport FILE* win32_tmpfile(void);
DllExport void win32_abort(void);
DllExport int win32_fstat(int fd,Stat_t *sbufptr);