fix CJKT.t failures on windows due to incorrect binmode()

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

diff --git a/ext/Thread/typemap b/ext/Thread/typemap
index 21eb6c3..5df5b26 100644 (file)
--- a/ext/Thread/typemap
+++ b/ext/Thread/typemap
@@ -13,8 +13,8 @@ T_XSCPTR
                || mg->mg_private != ${ntype}_MAGIC_SIGNATURE)
                croak(\"XSUB ${func_name}: $var is a forged ${ntype} object\");
            $var = ($type) SvPVX(mg->mg_obj);
-           DEBUG_S(PerlIO_printf(PerlIO_stderr(),
-                                 \"XSUB ${func_name}: %p\\n\", $var);)
+           DEBUG_S(PerlIO_printf(Perl_debug_log,
+                                 \"XSUB ${func_name}: %p\\n\", $var));
        } STMT_END
 T_IVREF
        if (SvROK($arg))