diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 1999-10-06 02:36:53 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1999-10-06 02:36:53 +0000 |
| commit | bf49b057b09bec860588a9b554c3a77683394722 (patch) | |
| tree | fc9654fc3743f5dfbde82f6eb5729519d41f568d /win32/win32thread.c | |
| parent | 65cec58980c279c041788ef30ee8617e63ab5229 (diff) | |
| download | perl-bf49b057b09bec860588a9b554c3a77683394722.tar.gz | |
make die/warn and other diagnostics go to wherever STDERR happens
to point at; change places that meant Perl_debug_log rather than
PerlIO_stderr()
p4raw-id: //depot/perl@4302
Diffstat (limited to 'win32/win32thread.c')
| -rw-r--r-- | win32/win32thread.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/win32/win32thread.c b/win32/win32thread.c index 543fc130f5..1bca3c3ca5 100644 --- a/win32/win32thread.c +++ b/win32/win32thread.c @@ -92,7 +92,7 @@ Perl_thread_create(struct perl_thread *thr, thread_func_t *fn) DWORD junk; unsigned long th; - DEBUG_S(PerlIO_printf(PerlIO_stderr(), + DEBUG_S(PerlIO_printf(Perl_debug_log, "%p: create OS thread\n", thr)); #ifdef USE_RTL_THREAD_API /* See comment about USE_RTL_THREAD_API in win32thread.h */ @@ -123,7 +123,7 @@ Perl_thread_create(struct perl_thread *thr, thread_func_t *fn) #else /* !USE_RTL_THREAD_API */ thr->self = CreateThread(NULL, 0, fn, (void*)thr, 0, &junk); #endif /* !USE_RTL_THREAD_API */ - DEBUG_S(PerlIO_printf(PerlIO_stderr(), + DEBUG_S(PerlIO_printf(Perl_debug_log, "%p: OS thread = %p, id=%ld\n", thr, thr->self, junk)); return thr->self ? 0 : -1; } |