From: Malcolm Beattie <mbeattie@sable.ox.ac.uk>
Date: Thu, 2 Oct 1997 16:50:21 +0000 (+0000)
Subject: Fixed broken typemap for Thread.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=8df6cea607ca4d3e6bfad30c6d6cac7bc4b48d2f;p=p5sagit%2Fp5-mst-13.2.git

Fixed broken typemap for Thread.

p4raw-id: //depot/perlext/Thread@95
---

diff --git a/typemap b/typemap
index a9a5bd8..9a79e40 100644
--- a/typemap
+++ b/typemap
@@ -1,15 +1,16 @@
-Thread		T_XSOBJ
+Thread		T_XSCPTR
 
 INPUT
-T_XSOBJ
+T_XSCPTR
 	STMT_START {
 	    MAGIC *mg;
 	    SV *sv = ($arg);
 
 	    if (!sv_isobject(sv))
 		croak(\"$var is not an object\");
+	    sv = (SV*)SvRV(sv);
 	    if (!SvRMAGICAL(sv) || !(mg = mg_find(sv, '~')))
-		croak(\"$arg is a counterfeit ${ntype} object\");
+		croak(\"XSUB ${func_name}: $var is a forged ${ntype} object\");
 	    $var = ($type) SvPVX(mg->mg_obj);
 	    DEBUG_L(PerlIO_printf(PerlIO_stderr(),
 				  \"XSUB ${func_name}: %p\\n\", $var);)