diff options
| author | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-10-02 16:50:21 +0000 |
|---|---|---|
| committer | Malcolm Beattie <mbeattie@sable.ox.ac.uk> | 1997-10-02 16:50:21 +0000 |
| commit | 8df6cea607ca4d3e6bfad30c6d6cac7bc4b48d2f (patch) | |
| tree | 5ac4543338a8abd994451141966464c4543845f2 | |
| parent | 683929b49c6384fb92ba65fc111b71ae82a6e29d (diff) | |
| download | perl-8df6cea607ca4d3e6bfad30c6d6cac7bc4b48d2f.tar.gz | |
Fixed broken typemap for Thread.
p4raw-id: //depot/perlext/Thread@95
| -rw-r--r-- | typemap | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -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);) |