Based on
Richard Soderberg [Fri, 29 Jun 2001 04:09:24 +0000 (21:09 -0700)]
Subject: [PATCH @11016] More );) fixes
Message-ID: <Pine.LNX.4.21.0106290408200.12037-100000@oregonnet.com>

p4raw-id: //depot/perl@11022

ext/Thread/Thread.xs
ext/Thread/typemap

index 499a312..b209d3b 100644 (file)
@@ -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
 
index 7ce7d5c..5df5b26 100644 (file)
@@ -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))