[PATCH @11016] More );) fixes

--- ext/Thread/Thread.c~	Fri Jun 29 04:06:24 2001
+++ ext/Thread/Thread.c	Fri Jun 29 04:07:47 2001
@@ -357,7 +357,7 @@
      * 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);
 }
 
@@ -405,14 +405,14 @@
 		croak("XSUB join: t is a forged Thread object");
 	    t = (Thread) SvPVX(mg->mg_obj);
 	    DEBUG_S(PerlIO_printf(Perl_debug_log,
-				  "XSUB join: %p\n", t);)
+				  "XSUB join: %p\n", t));
 	} STMT_END;
 #line 372 "Thread.xs"
 #ifdef USE_THREADS
 	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:
@@ -475,12 +475,12 @@
 		croak("XSUB detach: t is a forged Thread object");
 	    t = (Thread) SvPVX(mg->mg_obj);
 	    DEBUG_S(PerlIO_printf(Perl_debug_log,
-				  "XSUB detach: %p\n", t);)
+				  "XSUB detach: %p\n", t));
 	} STMT_END;
 #line 417 "Thread.xs"
 #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:
@@ -530,7 +530,7 @@
 		croak("XSUB equal: t1 is a forged Thread object");
 	    t1 = (Thread) SvPVX(mg->mg_obj);
 	    DEBUG_S(PerlIO_printf(Perl_debug_log,
-				  "XSUB equal: %p\n", t1);)
+				  "XSUB equal: %p\n", t1));
 	} STMT_END;
 
 	STMT_START {
@@ -545,7 +545,7 @@
 		croak("XSUB equal: t2 is a forged Thread object");
 	    t2 = (Thread) SvPVX(mg->mg_obj);
 	    DEBUG_S(PerlIO_printf(Perl_debug_log,
-				  "XSUB equal: %p\n", t2);)
+				  "XSUB equal: %p\n", t2));
 	} STMT_END;
 #line 447 "Thread.xs"
 	PUSHs((t1 == t2) ? &PL_sv_yes : &PL_sv_no);
@@ -577,7 +577,7 @@
 		croak("XSUB flags: t is a forged Thread object");
 	    t = (Thread) SvPVX(mg->mg_obj);
 	    DEBUG_S(PerlIO_printf(Perl_debug_log,
-				  "XSUB flags: %p\n", t);)
+				  "XSUB flags: %p\n", t));
 	} STMT_END;
 #line 453 "Thread.xs"
 #ifdef USE_THREADS
@@ -611,7 +611,7 @@
 		croak("XSUB done: t is a forged Thread object");
 	    t = (Thread) SvPVX(mg->mg_obj);
 	    DEBUG_S(PerlIO_printf(Perl_debug_log,
-				  "XSUB done: %p\n", t);)
+				  "XSUB done: %p\n", t));
 	} STMT_END;
 #line 461 "Thread.xs"
 #ifdef USE_THREADS
@@ -672,7 +672,7 @@
 		croak("XSUB tid: t is a forged Thread object");
 	    t = (Thread) SvPVX(mg->mg_obj);
 	    DEBUG_S(PerlIO_printf(Perl_debug_log,
-				  "XSUB tid: %p\n", t);)
+				  "XSUB tid: %p\n", t));
 	} STMT_END;
 #line 483 "Thread.xs"
 #ifdef USE_THREADS
@@ -948,7 +948,7 @@
 	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))));;
 #line 953 "Thread.c"
     }
     XSRETURN(1);

• [PATCH @11016] More );) fixes by Richard Soderberg
• Re: [PATCH @11016] More );) fixes by Jarkko Hietaniemi