Based on

[p5sagit/p5-mst-13.2.git] / ext / Thread / typemap

diff --git a/ext/Thread/typemap b/ext/Thread/typemap
index 7ce7d5c..5df5b26 100644 (file)
--- 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))