From: Richard Soderberg <p5-authors@crystalflame.net>
Date: Fri, 29 Jun 2001 04:09:24 +0000 (-0700)
Subject: Based on
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a835d317a95a4687dcab69d902e338940d91160a;p=p5sagit%2Fp5-mst-13.2.git

Based on

Subject: [PATCH @11016] More );) fixes
Message-ID: <Pine.LNX.4.21.0106290408200.12037-100000@oregonnet.com>

p4raw-id: //depot/perl@11022
---

diff --git a/ext/Thread/Thread.xs b/ext/Thread/Thread.xs
index 499a312..b209d3b 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
 
diff --git a/ext/Thread/typemap b/ext/Thread/typemap
index 7ce7d5c..5df5b26 100644
--- a/ext/Thread/typemap
+++ b/ext/Thread/typemap
@@ -14,7 +14,7 @@ T_XSCPTR
 		croak(\"XSUB ${func_name}: $var is a forged ${ntype} object\");
 	    $var = ($type) SvPVX(mg->mg_obj);
 	    DEBUG_S(PerlIO_printf(Perl_debug_log,
-				  \"XSUB ${func_name}: %p\\n\", $var);)
+				  \"XSUB ${func_name}: %p\\n\", $var));
 	} STMT_END
 T_IVREF
 	if (SvROK($arg))