From a835d317a95a4687dcab69d902e338940d91160a Mon Sep 17 00:00:00 2001 From: Richard Soderberg Date: Thu, 28 Jun 2001 21:09:24 -0700 Subject: Based on Subject: [PATCH @11016] More );) fixes Message-ID: p4raw-id: //depot/perl@11022 --- ext/Thread/Thread.xs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'ext/Thread/Thread.xs') diff --git a/ext/Thread/Thread.xs b/ext/Thread/Thread.xs index 499a3121d9..b209d3b292 100644 --- a/ext/Thread/Thread.xs +++ b/ext/Thread/Thread.xs @@ -348,7 +348,7 @@ handle_thread_signal(int sig) * with -DL. */ DEBUG_S(PerlIO_printf(Perl_debug_log, - "handle_thread_signal: got signal %d\n", sig);); + "handle_thread_signal: got signal %d\n", sig)); write(sig_pipe[1], &c, 1); } @@ -373,7 +373,7 @@ join(t) if (t == thr) croak("Attempt to join self"); DEBUG_S(PerlIO_printf(Perl_debug_log, "%p: joining %p (state %u)\n", - thr, t, ThrSTATE(t));); + thr, t, ThrSTATE(t))); MUTEX_LOCK(&t->mutex); switch (ThrSTATE(t)) { case THRf_R_JOINABLE: @@ -416,7 +416,7 @@ detach(t) CODE: #ifdef USE_THREADS DEBUG_S(PerlIO_printf(Perl_debug_log, "%p: detaching %p (state %u)\n", - thr, t, ThrSTATE(t));); + thr, t, ThrSTATE(t))); MUTEX_LOCK(&t->mutex); switch (ThrSTATE(t)) { case THRf_R_JOINABLE: @@ -664,7 +664,7 @@ await_signal() if (ret) sv_setsv(ST(0), c ? PL_psig_ptr[c] : &PL_sv_no); DEBUG_S(PerlIO_printf(Perl_debug_log, - "await_signal returning %s\n", SvPEEK(ST(0)));); + "await_signal returning %s\n", SvPEEK(ST(0)))); MODULE = Thread PACKAGE = Thread::Specific -- cgit v1.2.1