From 8df6cea607ca4d3e6bfad30c6d6cac7bc4b48d2f Mon Sep 17 00:00:00 2001
From: Malcolm Beattie <mbeattie@sable.ox.ac.uk>
Date: Thu, 2 Oct 1997 16:50:21 +0000
Subject: [PATCH] Fixed broken typemap for Thread.

p4raw-id: //depot/perlext/Thread@95
---
 typemap | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

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);)
-- 
2.7.4