diff options
| author | Steve Hay <steve.m.hay@googlemail.com> | 2012-11-09 08:39:36 +0000 |
|---|---|---|
| committer | Steve Hay <steve.m.hay@googlemail.com> | 2012-11-09 08:39:36 +0000 |
| commit | 28e70dfacc2bf233994dd4c058e86e2bffa2f7b8 (patch) | |
| tree | bc40c48988002435626706692e235c9e14a9e589 /win32 | |
| parent | 6753a9e9c66979254bcf428da9f1b34a1d814a8d (diff) | |
| download | perl-28e70dfacc2bf233994dd4c058e86e2bffa2f7b8.tar.gz | |
Restore DEBUGGING build with USE_ITHREADS on Win32, broken in 9399a70c62
Diffstat (limited to 'win32')
| -rw-r--r-- | win32/win32.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/win32/win32.c b/win32/win32.c index f9e8d97bb9..4112db8807 100644 --- a/win32/win32.c +++ b/win32/win32.c @@ -2858,6 +2858,7 @@ win32_tmpfd(void) if (fh != INVALID_HANDLE_VALUE) { int fd = win32_open_osfhandle((intptr_t)fh, 0); if (fd >= 0) { + PERL_DEB(dTHX); DEBUG_p(PerlIO_printf(Perl_debug_log, "Created tmpfile=%s\n",filename)); return fd; @@ -3349,6 +3350,7 @@ win32_chmod(const char *path, int mode) static char * create_command_line(char *cname, STRLEN clen, const char * const *args) { + PERL_DEB(dTHX); int index, argc; char *cmd, *ptr; const char *arg; |